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LALEVEE ENLEVE 
LEGROS LOT! 



Qa y esl. le jury a rendu son ver- 
dict, preside par Georges LE- 
CLERE. joumaiiste scientifique 
d'ANTENNE 2.les speciahstes 
d'ARIOLA. d'HACHETTE. d'HEB- 
DOGICIEL. d'lLLEL. de la 
REGLE a CALCUL, de SIDEG el 
de VIFI-NATHAN ont choisi le 
programme "ALPHABET FLASH" 
de Jean-Pierre LALEVEE sur 
COMMODORE 64. C'est done lui. 
I'heureux homme, qui emporte 
I'APPLE lie offer! par SHIFT EDI- 
TIONS, le CANON X07 offert par 
CANON FRANCE, le COMMO- 
DORE 64 offert par PROCEP. 
I'ORIC ATMOS Offert par ASN. 
I'agenda eleclromque CASIO PF 
3000 offert par les Etablisse- 
ments NOBLET. !e Texas Tl 
99 4A offert par la REGLE a CAL- 
CUL. rimprjmante EPSON et 
I'abonnement a vie offerts par 
HEBDOGlCIEL, les deux ordina- 
teurs de poche PC 1245 et PC 
1500 Offerts par SHARP 
FRANCE, les 5 logiciels offerts 
par VIFI-NATHAN et la petite 
montagne de logiciels divers: 10 
pour Commodore, 10 pour Texas 
et toute 'a gamme des boites 
jaunes. les HEBDOGlCIEL 
SOFTWARE. Jean-Pie/re. qui est 



un habitue des envois de pro- 
grammes a I'HEBDO, ne va sure- 
ment pas s'ennuyer, en plus de 
I'apprentissage rapide de la 
trappe au clavier avec les deux 
pieds. tl va lui failoir se faire gref- 
fer deux paires de bras supple- 
mentaires pour pouvoir taper su 1 
tous ses ordinateurs a la fois ! Et 
si a la rentree, il est encore en 
manque, il pourra se precipiter 
chez son marchand de logiciels 
prefere pour acheler son propre 
logiciel ainsi que celui de ses 
pelits copains de i'hebdo qui ont 
aussi gagne la semaine derniere. 
Un ordinateur ca va. huit ordina- 
teurs: etc ■ 



EDITO 



Encore du nouveau cette se- 
maine: vous pouvez acheter des 
Thomson T07 en passant par 
I'Hebdo. Regardez les prix, ils 
son! pas tristes ! Nous vous pre- 
parons encore quelques petites 
surprises: un numero quadruple 
pour les vacances. plus de 
soixante pages grand format de 
programmes ! L edition des pro- 



LES CONCOURS PERMANENTS : 

10 000 francs de prix au meilSeur programme CHAQUE MOIS. 
1 voyage en Californie pour le meilleur logiciel CHAQUE TRI- 
MESTRE (Reglement en page interieure) 



grammes de Le Breton (le vam- 
pire fou 'i qui a ecrit des pro- 
grammes pour Apple et 
Commodore que meme les ame- 
ricains nous envient ! L ouverture 
d'ici a la fin de I'annee dune bou- 
tique a Paris ou vous pourrez 
venir nous voir et , des la rentree, 
un paquet de nouveaux logiciels 
'Boites jaunes" inedits Et enfin le 
plus gros-genial-extra-fabuleux 
recueil de programmes que la 
terre ait jamais porte! 

Gerard CECCALDI 

n ARTEZ EN 
*NCES 
AVEC UN T07 



Nous ne voulons pas nous trans- 
former en vendeur de materiel, 
pas encore ! Pourtant une oppor- 
tunity nous permet de faire une 
offre exceptionnelle aux lecteurs 
d'HEBDOGtCIEL: un ordinaleur 
THOMSON T07 avec sa cartou- 
che de Basic et la boite jaune de 
12 programmes Hebdogiciel Soft- 
ware. C'est quelque chose qui 
coute dans les 2500 a 3000 
francs selon les boutiques, (meme 
les "grosses", suivez mon re- 
gard...), avec "HEBDOGlCIEL- 
vous aurez' le tout pour 2000 
francs, et c'est le facteur qui vous 
apportera ca chez vous. en re- 
commande pour pas que ca se 
perde. Envoyez vos sous avec un 
petit mot pour nous dire ou il laut 
vous le livrer. et grouiliez-vous 
nous n'en avons pas beaucoup 
de disponibles. Les premiers arri- 
ves seront les seuls servis 
(comptez une huitame de jours 
pour la livraison). )es autres n'au- 
ront rien et en plus on leur rendra 
leur cheque, gniak-gniak ! ■ 



TEMPLE sur CANON X-07 



Les fleches -* et f vont vous etre mdispensables pour venir a bout de ce 
jeu ou foisonnent des lianes et des monstres. Voire vie ne lient qu'a un fill. 
— permet d'avancer et d'attraper les lianes. 
I permet de sauter les obstacles. 

Patrice LEON 



IIVEAU <!/?> 



70 FONT1II34 

?? roNiniM 



4 3 gosu*3300 

30 GOSUB3A0O 
AO 00SU*?3O3 

ooo beepis, i:oosub4ooo 

005 x-x.i:A*-*0' 
OIO 00SUB4O3O:ftCTURM 

13 jooo oosu»4ooo:t-y-k*»-c»««'i 
Sub4030:oosub?303:OOSubaooo:»i 
■,? 7003 FORO-1T07 

■i:Jt.rin»i: 



13?, 13?, i: 

1.0,0,237,1 



,9A,9A.A0. 744.48, 700 303O 

?soo 

6, II?, 112,48, 1 A, 3ft. 7 ?502 

7303 
7.78, 78, 74, 1A.77.3A, 

ISO? NEXTHIREIURN 
O, 178,44,40, II?, ISA, 7 3000 BCEP23, l:0OSUB40OO 

30IO X-X-]t**- p «* 

o 1 4,B,eo,fto,7?s,??4,3 3o?o oosu«40so:return 

3300 FORM- IT OC 
0, 19?, 700, 144.9A, ISA, 3307 LOCAIt XIHI.V 

.'■■.(" xim-xmi.l <" 
197,40,770,44,237, 132 0« 

330* IFYIHI-1TMEMY 
9«,9*,A4, 170.9ft.4B, 40 3307 LOCATE XIMI ,Y 
91--4B,32,3A.AO,4ll,24 1NTCHR91 1'*' I El SFPR INTChW* 

03310 



mh-itoc: IF: 



HX • 



T HE HO SUB 7000 
070000 



3A0? OF I URN 
3A3D FORH-ITC 
3A33 1FXIHI-C 



ILOCATF XIH1.Y1H1 :PR 

Suite page 12 



DES PROGRAMMES POUR VOTRE ORDINATEUR : APPLE II ET HE 
CANON X-07 . CASIO FX 702-P .COMMODORE 64 ET VIC 20 . 
DRAGON . HECTOR HR . HEWLETT PACKARD HP 41 . ORIC 1 ET 
ATMOS . SHARP MZ, PC 1251, PC 1500 . SINCLAIR ZX 81 ET 
SPECTRUM. TANDY TRS 80 . TEXAS TI-99/4A . THOMSON T07. 

HIPPOREBUS trouvez I expression qui se cache dans la B D de Ihippocampe Decompose en trois syllabes dans les trois premieres cases, le "tout" a evidemment un rapport avec I'mformatique 

(solution en page interieure) 




(IM°38 



29 juin 1984 



Allemagne 3.50 DM - Belgique 55 Frs - Canada 2,50 $ - Luxembourg 57 Frs - Suisse 3 Frs 



CATAPULTE 



Ce programme est un jeu d'adresse qui consiste a de- 
placer une catapulte et a tirer sur un chateau pour at- 
teindre des gardes, Lorsqu'un nombre suffisant de 
gardes est atteint en (in de partie (apres 20 coups) un 
pont levis se baisse symbolisant la prise du chateau et 
la victoire du joueur. 

Paul ADORNO 

En debut d'execution. les regies de defacement sont presentees. 
trois touches >. < et a servant a commander la calapulte. Lors des 
parties suivantes la regie n'apparait pas. il.suffit de reinitialiser pour 
les (aire apparaitre 

Le joueur selectionne ensuite la difliculte, qui est en tail en tonction 
du nombre de gardes a atteindre: (niveau 1 = 4 gardes, niveau 2 = 
6 gardes, niveau 3 = 8 gardes). Ce nombre peut-etre modilie au fur 
et a mesure de la progression du joueur (simple modification de 3 
chiffres dans le programme). Le jeu commence a ce moment. 
La principafe difficulte tient du fait que, au moment du fir, deux 
gardes sur 3 se baissent et ne peuvent etre atteints. Ceci est deter- 
mine de maniere aleatoire, De plus, des qu'un garde est louche, 
son rempiacani ne se dresse que lorsqu'un autre garde a ete lou- 
che. II ne reste done en fait, que deux gardes qui peuvent se bais- 
$»r en meme temps, (car 2 gardes sur 3 se baissent). 
Le score est affiche en haul de I'ecran ainsi que le nombre de Bra. 
Si te nombre de gardes atteints est suffisant, le pont levis se baisse 
sur un air de trompettes saluant la victoire. 

Derniere chose, si on avance ou si on recule trop, la catapulte, 
tombe bten evidemment dans le fosse (avec un grand fracas). 
Record personnel: 1 1 gardes, qui dit mieux ? 



to 




■ i iCREEHO,' 



■-PRESENTATION- 



;-01Llt>OSI02 



3 LOCATEl8,9,8:C0LOP!,4:ATTRBl>l 

* ?RINT-CP.T»PULTE*;*TTRBa.9:LGC&TE9,28,e 

.^:DCi«T-CREaT10M: P*UL AD0RN0" 
3 CLEi»R,.23:L"£:0-«:Dl":«ll>:DIf1Y(Il):X= 
-!99:**!96 

6 DO»--rj3LI&0Fa-:S!* = 'Ci4LinlbSIb 
3Ll»ESO-:fflf05Liri.SIb': 
SI03SI04SI03SI* 

7 roRi-iToae-.PLAY&of 

3 MEXTl:fORI»lT05!PLflVSI* 

9 MCXTi:rOPI«IT05:PLflV&0« 

IB NEXTl:FOPt«lTO20:PLftrBEI 

It HEXTI:FORI'-lT028iPL»YD0« 

12 MEXTI:FO»I*lT01i:PLftYFfl»:Z=X'18e:X(I> 

14*Y-I»CTrS0Ra-Z-2)«iee>:PLftYF<if:Ya)»I6 

4-V 

15 X«X*28iX£XTI:D!H M«< 11 >:Ni< 1 > = "05L1S1 
-:M*(2)»*03LISIb , :Mf(3)=-05LlLft-!M«(4>=- 
3SL;L&b-:»*(3)^"05L13O-:««'6>=-05LlS0b-: 
K«<7)«-05Lirfl-:H«C3>=-05LlflI":»<n:9>=-05L 
]nib*sHf(i9}«-05LlHE":»t*<lI >="05LlREb" 

16 CLSiC0SUB623!t:oT04e8 

LAMCEP OU BOULET 

17 C0LOR4, 4:L0CPiTEL»2£,8:PRlNTCHR*<I4>;C 
Hftl<127>:LOCf.TEL*l,20.9:COLOP8.4:PRINTCH 
R«U04;:PRINTCHR*<:15> 

29 P«L»8tPLftV05L I 310431 0331 0231 01 SI D0- 

25 F0RI=IT0M 

38 PSET<X<I>*P,Y'.I>>,4 

35 PSETfxa>*i*P,Y(I>>,4 

49 PSET'X<I>*P,Y(I)-1>,4 

45 PSET(X(I>*l+P,Y(I)-l>,4 

59 PSETfXd-l >*P,Yf I*l>),7 ■ 

33 PSET<X(I.1>.1*P, fH*l)i,? 

63 PSCT<X<I*l>*P,Y<I+t>-l>*7 

65 P3ETCX<I*l/<-l*P,VI-l;-l>,7 

79 «EXTI:PSET(X(I/+P.Yf I j/,6:PSETfX<l)+P 

*1,Y<I>>,6iPSET(X(I>*P,Y(I)-I),6:PSEr'X( 



I)*1+P,YU>-1),6:LQCAT£29. 1 3 : C0L0R6. 4: PP 

IMT* "iL0C«TE35,13:PRINT* * 

75 J-J*l:L0CfiTE3,5,9!ATTRBl. I s COLOR!, 4: P 

RINTj:fiTTR88,0 

85 IFL"6H»lt)C=lfiMDQ<> 1 THEKQ= 1 : PLaYCOJi GOT 

0398 

38 rFL = I4liNCJC; = 2flND(5:./2THEN0=2:PL0VC0t!C0 

T0318 

97 trL»18fl»0C = 8«Nt"J-.- ,-3THtM 1 J = 3:PLfiYC0*:C0 
TD338 

98 L0CATEL*i,29f 8JPRINT' ' : [FJ=20THENCOT 
0728ELSEG0T0658 

j-. , POSITION CftTOPULTE 

188 PRINTCHR*<14> 

119 LOCflTEL,22,0:COLOR8,4 

128 PRIHTCHP('^9;;CHPK 1 II >i CHRJ<47>; CHR 

t(63) 

142 LOCATEL*2,2I,0:PR1NTCHR*<53> 

169 IFL=19THEKG0TO2?8 

178 IFL=8THENG0T0239 

138 ' C0MTP0LE 

ARRIVEE 0U BOULET 

198 IFL*10RL=2THENK=18:G0TO288 

195 IFL=180RL=11THEHW=9:C0T0288 

196 IFL=12THENK=3:G0T0288 

198 M"9' DEPLACEMENT 

.. tir 

290 H»PND:ft*-INKEY* 

219 irtU=".'THENL-L+l :COT0258 

228 IFM = ","THENL»L-1 :C0T0268 

238 1F0»»-S"THEH G0T0378 

248 C0T0198 

259 L0CflTEL-1.22.8:C0L0P4,4:PPlMTCHP*(12 

7) 

252 LQCflTELM,21,9:PRINTCHRI(127> 

255 G0T0188 

269 L0CrtTELf4, 22,8:C0L0R4, 4: PRINTCHR*< 12 

7) 

262 LOCfiTEL+3,21 : PP1 HTCHRJ< 1 27 > 

265 G0T0188 — CHUTE 



DE LA C*T>»PULTE 

278 FOPT-uoiee 

B7I *E>'TT 

272 LOCnTE19.22.9!COLOP4.0tPRI«TCW«' 127 
tCH«»<ta7>ICHWtl27)jCHR*U27>!L0CATE21 

.2I.91PPINTCHPH 127. 

273 L0C«TE22,23.8!C0lOP0.4:PR1ht:hii IS< 

17A C L-. ■01L59I«IbU»LflbSO9O»FA«II»*Kft£b 

[.jDOC'Ot'CC'Qt'OI'OuQOOt-OC'OC-ODOPPPPPPPPPP' 
273 PP1MTCHPI' 15MC0T0S 

299 roPT-iToiee 

281 NEXTT 

292 LOCATE0,22.e:C0L0P4.4:PPINTCHtr 187 
|CHR*<127>IGKR«<127 lCHRt(127 =L0C«TE2.2 
ItPPIKTCHPfll27> 

293 C0lQPO.4:L0C«TE1. £:.■:■: — IKTCHRI .: r 
234 PLOY-OlL5SI5IbL-L"bi0;0bFK»iln!bFEPEb 
OOOODOC'OC'OC'OOODODOuijDODODOPPPPPPPPPP" 

285 PPINTCHR*<15'!G0TO2 * LE GaROE 

EST TOUCHE 

398 L0CATE26, I0,8:GOTO348 

318 L0CfiTE32.?,8=G0T034D 

338 L0CATE38, I8,8:G0T034e' RFFICHAGE 

Du scoeE 

348 C0L0R8.4:PP!MT* •iLGCATEL*1.28,0:PRI 
NT- -IATTRB1, l: COLOR 1.4 = LOCATE 12.5,8:5-3 
*l:PRIKTS:ATTR88,e 
358 IFJ-28THEK738 

368 G0T0658 ' LES 2 GAPDES 

SE BRISSENT 

378 PRINTCHR*U5>:C0LOP?.-»: IFHv = . 33THEH3 

89 ELSEIFH>=.66TH£N398 

375 L0CfiTE26,19.8:PRIKT' - :L0CflTE26. 1 1 , 8 

:PRlNTGR*<B>:L0CftTE32.9,9:PPIt(T- -:L0CflT 

E32,18,e:PPINTGP*'9>:G=8:G0TQ17 

388 L0CflTE32,9,8:PRIMT- -:L0CATE32. 18/ 8= 

PPIt*TGR*(8i:L0CATE3S.18.6:PPINT- -:LOCAT 

E38, H,9:PRIMTCR*f8>:G=i;C0T017 

398 L0CATE38. 19.8SPRINT- • 1L0CATE38. 1 1 ,8 
:PRIHTCR*C9J:L0CATE26. 18.8:PP1NT* 'JLOCA 
TE26, ll,9:PRIKTGPK9f:G = 2:C0TO17 

399 ' DESSIK OU 

tECOR 

488 BOXF(282,96>-C228,!84),6 

418 B0XFf298,96)-<316,l84),6 

428 B0XF<238,88>-(268.184),6 

423 80XF<221,112>-(297,134>.6 

438 LOCATE25,11.8:COLOR8.6:PR1NT- - 

448 LOCATES?. II. 8:PPIHT* ' 

438 L0CATE31,18,9:PPIMT- ■ 

468 L0CQT£33.18,9:PPINT- ■ 

478 L0CATE37.1I,9:PPIKT- ■ 

488 LOCOTE39.11.0:PPIMT- ■ 

498 L0C0TE28,13,8:PRIMT' " 

588 L0CATE38.13,9!PPIKT- ■ 

518 L0CATE3S,13,8:PRIKT- ■ 

528 LOCATE34,13.0:PP1HT- - 

538 L0CATE36, i:',e:PPI«T* ■ 
548 BOXF'" 102:-C317,288>,6 
545 BO' )-<I74,199?,3 
558 <5X '7>-C317,199),3 

569 ' SELECTION 

1_- -— NIVEAU DE DIFFICULTE 

539 LOCATES, 2,8: C0L0R1, 6: PRINT *j«ts* 
598 LOCATE12,S,0:PPINT'point*- 

688 L0CATE22,2,8:PRINT'nlye*u d«':L0CATE 

22,4,8:PRINT*dif f icul te ' : L0CATE22. 6: PRIN 

T'<1,2 ou 3>-:ND*«INKEYt 

605 IFNDt»-l-THENF=4:GOT0625 

618 IFND*--2-THENF=6:G0T0625 

615 IFND*-*3-THENF-8:G0TO625 

628 C0T0688 

625 L0CATE29,2,8:PRINTNDI;- *:LOCATE28,4 
,8:PRINT-pour assurer 1«':L0CATE29, 6.9! 
PRlNT-ch»t«au, il fauf:L0CATE28,8,8!PRI 
NT'att«mdre-;Fi "gardes* 

626 F0RT=!T0599 

627 NEXTTiG0T0639 ' REGLE 

DU JEU 

628 ATTRBI,0iL0CATE2, 1 2. 8: C0L0R3. 8:PR INT 
">*: COLOR!, 4: LOCATES, 12. 8: PRINT' fait sua 

638 F0RT-1T0I89 

631 NEXTT:LO:OTE2,1c,8:COL0R3,9:PRINT-<- 
:C0L0RI.4:L0CATE8.16,9:PRINT-fa»t r«cul« 

632 F0RT-1TO198 

633 MEXTT: L0CATE2, 28.8: C0LOR3, 8: PRINT" ** 
:COL0Rl.4:L0CATEB,28,e:PPINT-lance 1« bo 
ul«f 

634 F0RT-lT0399:tiTTPB9,9 

638 NEXTT:C0L0R9,4:CLS:PETURN 

639 FORT"4TO8:LOCATE28,T,0:COLOP4,4:PPIN 
TSPC(19)iNEXTT 

649 OEFGR»C9>"12,39. ! 27, 255, 127, 38, 12, 12 



643 DEfCRl'.l '-39.62.62. 62. il.i t.a.ti 
638 COL0R7,4:ira*IT**EN:0TO6*3£L ■ 
ENC0TO67BELSEIF0«3TMENG0TOSS» 
635 • 

CE 

669 LOCATE26.ie.9iPRlNTGPf<»>u: 
!.B:PRIt»TCRi< 1 ' = LOCATE 32. ?.»: PRINT LV| a, 
:L0CAIE32. 18.8:PRII«TGPI<I.:H>CATE33.18,» 
:PPINIGP*(9>:L0CATE33, I l,9:PSI«--,;t | : ; 
0T0I99 

663 LOC ATE 32.9,8 :PPINTGPC 8 -ILOC ATE ?i. 19 
,8:PRINTGPf'l ': LOCATE 3 8. 10, 8:PP In: :? I a- 
■■ LOCATE 39. 1 l,8:PPINTGP*l 1 >:COT01«* 
679 LOCATE38,ie.0:PPINTGP|(8':L: 
1.8:PRINTCR»' 1 ■ : LOC ATE26, 1 9. 0: PR In: "^1 , ? 
• = L0CATE26. 1 1 . 8: PR INTGR»< I >: G.OT0186 
688 LOCOTE26.18.8:PRINTCPt'8l:LOCArE26.1 
1.9:PPINTGR-' 1'-:L0CATE32.?.8:PP1NTGBI'9> 
:LOCATE32.I0.8:PPINTGPI<] 'SGOTOIBe 
779 LOCATEL. 22. 0:COLOP9.4:PPJNTCHSI |4>f 
CHR-<69';CHPI'15': IF J>"F TMENCOTOt«» 

735 , uri 

— RESULT*.! 

748 LOCATE4,18.8:COL0R6. HATTRBl, is PR INT 
•PRISE DU * 

758 L0CATE5, 14. 8: P? SNT - :hmTE« L '' 
768 LOCATES, IS, 0: PP INT'RATEE * 
779 F0RT-1TO18B8 

788 NEXTT:ATTRB8.0!CLS:SCP£EN9,4,2:L"2!(I 
=8:S«0: J-8:G0T048e 

799 ' LE F0NT-l£v;5- 

:r 

399 DEFGR*(3>-8.96. ?6. 4 ? . 5s . ? 5 . i 2. ~i 

985 0EFGR*M>>6,71,3.67.8.64,8,64 

318 DEFGRt(5>-e,e,24,24, 12. 14.6,3 

815 DEFGR*<6>-9.64,e.64.8.64,8.64 

328 DEFGR«<7>=3. 1.9.8.8.8.0.8 

325 DEFCR*<8)-8, 192. 123. 192-96,96,43.48 

838 DEFGRI<9>-24.24. 12, 14.6, 7. 3, 3 

835 DEFGR*<I8>-8. 8,0. 8. 12,15.7,9 

848 DEFCR«<ll>-e. 8.0. 0.8,9. 192.248 

845 &EFGRf<12>«8, 3, 0.S.8.8.0.8 

358 DEFGRf<13>'124,31.7.I.8.8.0.0 

855 DEFGR*a4H0.B.32.5e.62. 15,3,0 

968 DEFCR«U5> =0.3.0.^.0. I36.224.24f. 

362 DEFCR*(16)=62, 15,3,9.0,8.8,0 

365 DEFGR*<17>>8, 123,2 24,248.62. 15.7. 1 

878 DEFCR*<18>=9,63.63,63.8,32.e.32 

875 r>EFGR*<19> = 8. 255.255, 255,0.9.8,0 

883 DEFCR«<2B)*8.32.9.32.e.32.e.32 

985 DEFGR*<2I>°e P 0.0.9.9.255.233,253 

898 DEFGRf<22>-8, 32. 0.32.8.235.235.255 

395 C0L0R9.4 

988 L0CATE24.1S.e:PPINTGRI(3):L0CATE24,l 

9.8:PRINTCR*<4> 

985 LOCATE23.29.9:PP1NTGRK3):l0CATE24,2 

8.0:PRINTCR*(6) 

910 LOCATE23.2l.0:PRINTCR*<7.:LOCATE24.2 

I.9:PRINTCR*<8> 

913 LOCATE24,22,0:PRINTGR»<9i 

928 FORT-IT028:PLAYD0« 

922 NEXTT:F0RT-1T020:PLAYSU 

925 NEXTT!F0RT'1T028:PLAYD0* 

938 NEXTT:FOPT-ITO20:PLAYREI 

935 NEXTT:FDRT-1TO40:PLAYDOI 

940 NEXTT:F0RI-I8T022 

943 LOCATE23,I,0:PRINT- ■ 

938 NEXT I 

968 L0CATE23. 18, 0: PPINTCRK t 8>:L0CATE24, 

18,8:PRINTCR*<in 

965 L0CATE23,19,8:PPINTGRftl2>:L0CATE24. 

19,8iPRINTCRf<13> 

970 LOCAT£23,2O.0:PPINTGR1(12>:LOCATE22, 

21,8:PR1NTGRI<14) 

973 LOCAT£23,21,0:PRINTGPH15>:LOCAT£23. 

22, 0:PRINTCRf(I6) 

988 L0CATE24,22.8:PP1NTGRHI7> 

982 FORT-1T0498 

984 NEXTT 

985 F0RI-18T022 

999 L0CATE22,I,8iPRINT- 
993 NEXT I 

ieee locate23,i9.oippintgr«u8>ilocate24 

, 19.8:PRINTGRI(19> 

1085 LOCAT£23.20.O:PPIr(TCRI(2O.>:LOCATE23 

,21.0JPRINTCR*(28> 

1910 LOCATE22,22,0:PPINTCRH21 >:L0CATE23 

.22. 8= PRINTGR*(22):L0CATE24. 22, 8: PR INTCR 

•(81) 

1629 ATTRBl,MCOLORI,6 

1938 L0CATE4, 1 8, 6= PRINT -PRISE DU" 

1848 L0CATE4,14,8:PRINT-CMATEAU- 

1050 LOCAT£4,18,0!PRINT-REUSSIE- 

1866 F0RT-1T0J588 

1078 NEXTTiATTRB9.O!CLS:SCREEN0,4.2:L-2: , 

O"0:S»8iJ«8tGOTO489 I 



CAVALIER 



li s'agit dans ce jeu de deplacer un cavalier sur un 
echiquier de facon a ce qu'il passe sur toutes les 
cases de celui-ci, mais il ne peut y passer qu'une fois. 
II gagne si tout I'echiquier est noirci. Le cavalier se de- 
place, bien entendu. comme aux echecs. 

Christophe REULIER. 

Mode d'emploi: 

Pour jouer, il faut entrer les coordonnees de la case d'arrivee en 
entrant la ligne et la eolonne. Ex.:A1,05, puis RETURN. Le pro- 
gramme verifie si ce que vous avez tape est correct. II donne aussi 
le numero du coup que vous etes en train de jouer (NO) et le nom- 
bre de coups favorables (NC). 



3 PPIHT-TM 

PftTIEtUEr-.. " 

s KikE>;^.'i.i'j 

is oovjb'j&i oosijB7e0 

11 R£M IrflMIEP 

12 CLR 

15 K<1;>86 K<2^«se -K> 
28 PRIMT"3ar-P0KE3681 

30 pRiiiT'taia 

46 FOF5*1T04 

50 FOPI-1T02 PRINT" 

m FORJ-I TO PRINT' 

70 l€*T 



CAVftLIER" PRIh 




302 rjfjSUB^ee 

303 TH-Tfl-1 

307 FORS'Sl 55T0B16.J i POKES, 32 ■ NEXT 

310 FORS«1TOI080 NEXT OOTOt00 

400 U-8 

405 F0Rf1-lTD4 

410 IFPEEKCDI*K(n)j-40RPEEK(DltK(f1))-5THENU»U-l 

415 IFPEEKCDl-KU1)>40RPEEK':Dt-K(M>)=5TMEHU-'U-l 

420 NEXT 

450 IFU«8TMEHGOSUB300 PRINT"miMIHttamaMNMMI 



58 PRINT" a 

95 PRINT"* fi B C D E F H-:T»0 

•33 REM BO'JCLE 

leo i np'jt •mmmammmttmmtttttWK choix -,f 

104 PRIHT'-WIftB'-lSifl*" 

105 FORS-130TO148 -POKE 36676. S NEXT POfcE36876,0 
110 Hi-PiOHri-.Ht, l,. 

120 V««LEFT*<R*,i> 
138 X-ftSCCV»>-65 
135 IFX<0CfRX>7THEN306 
140 V8-VflL<HI> 



143 IFV.8ORV>7THEN380 

150 D1-7728*<X«;+44*V 

155 Tfl-Tft*I !FTfl<2THEN130 

168 1FPEEK':DW-8QPPEEK<DW7THEH3w0 

162 IFPEEK'.DI>-6THE»t308 

165 D-DI-02 

170 IF<<D-86>*<D-3e>#<D-4e>»<I)-48>«':rj*9B>»(rj*e6j*(D*40)*tD*48^O0IHEHi00 

188 P0KEC2.6 POkED2+ 1 -6 ■f-uKED2*2i.b PWED2*23,6 

138 IFPEEK(DW-5TH£NQ-7 

192 IFPEEt«Dl>-4THEHQ»0 

208 P0KED1,Q.P0KED1 + 1,9+1 RDKEU1*22.'J''2 P0KEU1+23,U*3 D2-UI 

282 LT-LT-*l-PRINT"*»*HC|. 



v\c^° 



2B3 IFLT-64THEHUuSU8200e -PRINT"! 

204 OOSUB480 

203 F0RS-S155T0ei63 POKES, 32 HE: 
210 OOTOI00 

398 pRiHT-mnaammmemimam 



PDJ VOUS ftVEZ OftONE 



da VOUS RVK PERDU !II"COTO100 



460 PRINT' , «- , TRB<ll>"»C-"8-U 

470 RETURN 

499 REM DESSINS 

500 P0KE52,28 P0KE36.28 

318 R"7168:FrjRI"PiTrjR*51I ■ POKE I .PEEK 1 1+25600) -NEXT 

528 FORt=0TO87 - RERDF POKEH+L, F ■ NEXT 

323 DFITR0,3,S, 13. 18,62,36,60 

538 DflTfll28-64,32,88,9, 132, 116,76 

335 DATR36,60, 36,63, 2,28,32,63 

540 0RTR32. 32, 32,224,64,36,4,232 

542 DRTR0, 0,0, 0,0, 0,8, 8, 255, 255, 253, 255, 233, 255, 253, 233 

545 DflTfli53,66,36, 153, 153,36,66. 153 

538 DRTR234, 253, 251. 245, 239, 222, 289, 285 

560 DRTR235, 63.95, 15, 183, 131,219,193 

570 DRTR23I - 231 , 231 . 248, 253- 227, 223, 192 

380 DRTR219, 195,219,3, 191, 199,251,3 

600 RETURN 

699 REM REOLES 

700 OOSUB900 

710 P0KE36869,235 POKE36879,8 

712 PRINT-T 

715 FORS-7680TO?701:POK£S,6 POKES+110,6 NEXT 

720 PRINT"«Q»lt»»»ldCRVRLIERI" 

730 POKE?726,0;PO»<E7727, 1 P0KE7748.2 POKE7749.3 

735 POKE7742.7 R0KE7743,8 P0KE7764,9 PrjKE7?63,10 

740 FORS-1TO2800 NEXT 

745 OOSUB900 

750 PRINT" 4MM«nagPR«C0UREZ UN ECHl&UIER". 

760 PRINT"* RVEC UN CAVALIER" 

766 PRINT" SEN LE DEPLflCRNT COMME RUX ECHECS^" 

767 PRINT"« CASES EN HVRNT.PIJIS UNE CASE EH RETRfilT (DEPLACEMENT OBLIQUE INT 
ERDITV 

768 PRIMT"»OUR 'OUEP-EltlRE^ •LA COLONNE 'A-N) «LA LI ONE (1-8) »PE 
TURN " 

769 RR!MT"SHC DAM LE NOMBRE DE COUPS POSSIBLES" 

770 PRINT" 3WTRPEZ '0' POUR JOUERW 
773 OETB* IFB«>' , 0' , THEN773 

780 GOSUB308 

790 RETURN 

899 REM NJ9IQUE8 

■jMS FOP- : .-;50TiJ138SIfcP-l Pt'KEi6875,S-NEXT P*E36875,0 RETURN 

180*) FORS-1TO3008 NEXI 

1010 PRIHT-JWOUR RE JOUER TAPER '0'" 

1828 [FPCeK(I9?>-52THCN12 

103a GOTO 1020 

2000 RESTORE 

2003 PEADA IFA<1000THEN2805 

2010 F0RMU-1TO43 PERDA P0KE3U8/6, A FURT-1TU120 NEXT P0KE36876.8 HEX I RETURN 

k02O DATA! 080, 187. 167, 201, 209, 201. 187. 221. 215. 209, 221. 221, 221. 221, 221. 221. 221. 22 

1 

,.iij8 data;.'!! . •>• i 'V ir/i 

2040 rjATAl87.201. i ;0'.^01,l^-. i '21.215.209,221,221,221.221.221,221.221,221 

^'050 DATA20I, 193,195.187. 107,107 ■ 



DRAPEAUX 



Ce programme dessine des drapeaux simples, et vous 
devez trouver le nom du pays concern^ 

M. MONINO-LIBERT 

A la place de la reponse en frappant la leltre T, un tableau apparait 
reprenant tons les pays (24). 

L« programme peut-etre ameliore en incluant d'autres drapeaux plus 
difficiles Essayez de rajouter les emblemes qui se trouvent au mi- 
lieu des drapeaux. 



\Kt 



700 



ee print 

90 GOTO 1488 

ibb rep 

1 10 GCSU811BB 

120 REM— 

i3e cls 

MB rep--- 

150 PRJNTl?,8)"aUEL EST CELUI-C! ?" 

180 FOR l-l TO IBBBiNEXT I^PRInT'CLS 

170 PRINT 'PRINT PRINT 

180 FOR I-l TO 20 

190 PRINTM , ITTneC2)" ."TIN 

U7,7)TABM4V ";:PR.NTC2,2]1 

*BC261' 

200 NEXT I 

218 PRINT 

220 REfl 

230 P0KE51288,8'1NPUT ft* 
240 IF h«-"T" TuEN GOSUB 4188 
230 IF ft«-"FRflNC£' THEN PRINT'C'EST SIEN 
■ = PR.INT 'GOTO 238 

2(10 IF MO'FRIWCE'THENFRINT 'ENCORE UNE 
FOIS -'G0T016B 

270 REP 

280 REP 

29» CLSiPRINT'OUEL EST CELUI-CI ?" 

300 FOR ! = 1 TO IBBBiNEXT I'PR1NT:CLS 

318 PRINT iPRINTiPRINT 

320 FOR 1-1 TO 5 

330 PRINTC2,23T«B(2J" 

'iNEXT I 
340 FOR 1-1 TD 18 
350 PRInU6,6JThBC2J* 

"'NEXT I 
360 FOR 1-1 TO 5 
370 PRlNTC2,2JTf»6t2J" 

■'NEXT I 
380 PRINT 

390 sen 

«88 P0KE542BB,Bi INPUT fl«iPRINT 
4IB IF n*-'T' THEN GOSUB 4180 
420 IF h«-'ESPP-GNE" THEN PRINT'C'EST BIE 
N- 'GCT0468 

438 IF H«O-ESFAGN£"THENPR]NT"ENC0R£ UNE 
FOIS ' IG0T03BB 

440 REP 

450 REP 

480 CLSiPRINT'OUEL EST CELUI-CI ?" 

470 FOR 1-1 TO IBBB'NEXT IMPRINT :CLS 

4BB PRINT iPRINTiPRINT 

490 FOR 1-1 TO 7 

500 PRINU6,6JTflBC2J' 

•iNEXT I 
518 FOR 1-1 TO 7 
528 PRInTM , 1 JTftBC2J' 

1 iNEXT I 
538 FOR I»1 TO 7 
548 PRINT[.2,2JTfie(2J' 

1 iNEXT I 
358 PRINT 
300 REP 

578 P0KES4288,B:IMPUT ft* 

588 if n«-"T- Then gosub 4i8B 

598 IF fl»--<JEN£2UELfl" THEN PRINT -C 'EST B 

IEN':GCT063B 

608 IF m*<>'UENE2UELh"THENPRINT"ENC0RE U 

NE FOIS ' 'G0T0478 

818 REP 

628 REP 

838 CLSiPRINT'OUEL EST CELUI-CI ?' 

848 FOR 1-1 JQ IBBB'NEXT I -PRINT =CLS 

8S0 PRINT -PRINT PRINT 

SB8 FOR I-l TO 7 

678 PRINT[2,2]T«9C2]' 

'iNEXT I 
880 FOP I -I TO 7 
898 PRINU7,7JT«C2)' 

- 'NEXT I 
708 FOR I -I TO 7 
718 PRINTM, I JTP6C2)' 

1 'NEXT I 
728 PRINT 

730 REP 

748 P0KE542»8,B:INPUT fl« 'PRINT 
750 IF A«="T" THEN GOSUB 4188 
760 IF «-»"Pp.TS BflS' THEN PRINT'C'EST SI 
EN' : GOT 0800 

770 IF MO-PAYS BmS'THENPRTNT'ENCORE UN 
,E FOIS "IG0TQ64B 

788 REP 

790 REP 

000 CLSiPRINT'OUEL EST CELUI-CI ?* 

BI8 FOR I-l TO 1B0B:NEXT IMPRINT 'CLS 

828 PRINT 'PRINT 'PRINT 

838 FOR I-l TO 20 

848 PRINU4,4JTm8[2J- 'JiPRIN 

T[?,?JT«IU4)" ';;pRINTt!,2]T 

ABC26J" 

830 NEXT I 

880 PRINT 

878 REP 

B88 P0KES42B8,B-1NPUT A« 'PRINT 

898 IF H0»'T* THEN GOSUB 4180 

980 IF nt-'ITflLie- THEN PRINT'CCST BIEN 

" :GOT0 92B 

9(0 IF hIO'ITPLIE'THENPRINT'EnCORE UNE 

FOIS "I&OTO810 

920 COLOR, ,0,7 

938 REP 

940 REP 

950 CLS: PR I NT "QUEL EST CELUI-CI ? 

960 FOR 1-1 TO IBBBiNEXT J'PRINTiCLS 
978 PRINT 'PRINT iPRINT 
5*» FOR I-l TO 7 



338 PRlNU0,8ITH0[2J'' 

1 iNEXT I 



I FOR 



TO : 



1818 PRINT[2,2JThBC2J" 

' -NEXT I 
1828 FOR I-l TO 7 
1838 PRlNTl6,6)TPBC2J;' 

iNEXT I 
1048 PRINT 

IBSB REP 

I860 POKE54288,0:!NPUT P-«iPRINT 

'878 IF P.«»"T" THEN GOSUB 4180 

1088 IF H*-"«LLEPflGNE" THEN PRINT'C'EST 

BIEN"iCOLOR, ,7,BiG0T0! 1 2B 

1038 IF fl*O' , flLLEnflGNE"TMENPRINT"ENC0RE 

UNE FOIS "iCOLOR 1 ,B,7'&OT036B 

1 IBB REP 

' I IB REP 

'128 CLSiPRlNTC7,BJ ,- 0UEL EST CELUI-CI ? 

M38 FOR I»1 TO IBBBiNEXT I'PRINHCLS 
t I4B PRINT -PRINT -PRINT 
MSB FOR I-l TO 7 
1168 PRlNU2,2JTfl8£2)'' 

'iNEXT I 
M7B FOR 1-1 TO 7 
' 188 PRINTC7.7IT08C2:- 

' iNEXT I 
M38 FOR 1-1 TO 7 
i 280 PRINTt2,2JTftBC2J" 

'iNEXT I 
12IB PRINT 

122B REP 

1238 P0KES42BB,Bi]NPUT H*'PRlNT 

'24B IF ft*-"T THEN GOSUB 4180 

'250 IF fW-"ftUTRICHE" THEN PRINT'C'EST B 

IEN" :G0T0129B 

I26B IF fl«O'-ftUTRICHE ,- THENPRINT"ENC0RE U 

NE FOIS "'GOTOI 136 

1278 REP 

1288 REP 

'230 COLOR, ,B,7iCLS:PRlNr'QUEL EST CELUI 

-CI ? 

1388 FOR 1*1 TO IBBBiNEXT I iPRlNT iCLS 

1319 PRINT iPRINTiPRINT 

132B" FOR 1-1 TO 28 

1330 PRlNTCB,a:TfiBt2)'' ' i 'PRI 

NTce.ejTpecMj" " ; iPRiNT[2,2j 

Th6C26J" 

134B NEXT I 

1358 PRINT 

1368 REP 

1378 POKES420B,B:[NPUT ft* 'PRINT :PR!NT 

1388 IF fl«--T" THEN GOSUB 4 188 

1388 IF h*='8ELG10UE" THEN PRINT'C'EST B 

I£N"iGOTOI43B 

1400 IF m*O'BELGIQUE'THENPRInT"ENC0RE U 

NE FOIS -iCOLOR, ,8,7iGOTOI300 

1410 REP 

1420 REP 

1430 COL0R,,7.B:CLSiPRINT'OUEL EST CELUI 

-CI ? 

1440 FOR 1-1 TO IBBB'NEXT liPRlNTiCLS 

1450 PRINT 'PRINT 'PRINT 

146B FOR 1-1 TO 7 

1470 PRlNTt2.2JTp.8C2J' 

■:NEXT I 
1480 FOR 1-1 TO 7 
1430 PRJHTt7,7JTPBC2J J 

' ^NEXT I 
1500 FOR 1-1 TO 7 
1518 PRJNTt4,4JTf»B[2J" 

' iNEXT I 
1526 PRINT 
1538 REP 

154B P0KES42B8,8i INPUT ft«'PRINT 

1350 IF fl*-"T" THEN GOSUB 4188 

1380 IF M-'-HONGRIE" THEN PRINT'C'EST Bl 

EN":GOTO|880 

1578 IF ft«O"H0NGRI£"THENPRlNT'ENC0RE UN 

E FOIS "'GOTOIHB 

158B REP 

1590 REP 

1600 CLS'PRlNT"QUEL EST CELUI-CI ?" 

'610 FOR I-l TO IBBBiNEXT MPRlNTiCLS 

1620 PRINT :pRINTiPRINT 

1638 FOR I-l TO 2B 

1648 PRINT! I , UTflBC23* " ! :pRI 

NT[6,6JT«8t 14)- 'i-PRINTt2.2) 

TftBC26J- 

'630 NEXT I 

1660 PRINT 

1670 REP 

1688 P0K£542B8,»; INPUT H«:PRINT 

'690 IF fl*-"T" THEN GOSUB 4 188 

1708 IF M-'TCHW THEN PRINT'C'EST BJEN 

"ipftlNTiGOTO 1748 

1710 IF fl»O"TCHrtD"THENPRINT"ENC0RE UNE 

FOJS ":&0T0I618 

1728 REP - - 

1738 REP 

1740 CLSiPRINT'OUEL EST CELUI-CI 7" 

'730 FOR I-l TO 10BB:NEXT I'PSINT-CLS 

1768 PRINT iPRINT ;PRJNl 

1778 FOR I-l TO 28 

17BB PRINT[4,4JTflB(2J" " ' ;pfil 

NU7,7jrfle(l4)" , PRJNTt4,4) 

ine(26)" 

'790 NEXT I 
1800 PRINT 
1BIB REP 

1828 P0XE3428B,0:1NPUT f .PRINT iPRINT 

1836 IF M-'T" THEN GOSUB 4180 

1840 IF *«-'NIGERlA" THEN PRINT'C'EST 81 



FN- :PRIMT.GOT0 1888 

■■' ■ '-:t;>R£ un 

BOIOiTSfl 

i860 RCP--- 

■ — 

•B88 CLS.pRINTIXjEl ESI CELUI-:! 7 
'890 FOR I«| 10 IB0B. -.!.- ■-:■■ 

'380 PRINT -FEIf.: ."P--,; 

>9'0 foe i-i -d 'P 

'928 PR1MI6, 5. -•".■■ 

:MEX1 I 
1330 FOR I-l TO 5 
1948 FRlNUl , 1 ]TP8(2J' 

NEXT I 
I9S0 FOR I-l TO 5 
'960 PR1NT.2,2JThBC2J" 

n£XT I 
1978 PRINT 

1980 REP 

'998 P0KE542ea,B-lNPUT ft«iPRINI 

2B8B IF ft*--I" THEN GOSUB 4183 

2010 JF H.--C0L0PB1E' THEN PRINT'C'EST B 

IEN":GOTO 205B 

202B IF AiO'COLOPBlE' ThENPRINT "ENCORE U 

NE FOIS " ;G0T0IB3B 

283B REP 

2840 REP 

2850 CLSiPRINT'OUEL ESI CELUI-CI T 
2060 FOR 1-1 TO IBBBiNEXT I 'PRINT :CLS 
2870 PRINT iPRINT :PRINT 
2080 FOR 1=1 TO 4 
2B98 PRINTM , I JTP-B(2)" 

iNEXT I 
2100 FOR 1=1 TO 3 
21 IB PRINT[7,7JIhBE2)" 

' iNEXT I 
2128 FOR I-l TO 7 
2138 PRINU2,2]TpB(2r 

" iNEXT I 
2MB FOR 1 = 1 TO 3 
2150 PRINTC7,7JTP8t23" 

'iNEXT I 
2168 FOR 1-1 TO 4 
217B PR1NTC],I)Th8C2)* 

iNEXT I 
2168 PRINT 

2130 REP 

2200 PQKE542B8,B:INPUT fl*:PRINT 
2218 IF flf-'T THEN GOSUB 1188 
2228 IF Hf-'COSTfl RlCft" THEN PRINT'C'EST 

BIEN'iPRlNTiPRINT :G0T02268 
2230 IF H.O'COSTfl RICP'THENPRlNT'EfCORE 
UNE FOIS 'iGOT02B68 

2248 REP 

225B REP 

2268 CLSiPRINT'OUEL EST CELUI-CI ?" 
2278 FOR I-l TO !BBB:NEXT I'PRINT:CLS 
22B8 PRINT iPRINTiPRINT 
2298 FOR I-l TO 2 
2388 PR1NTC6.6JTPBC2J' 

• iNEXT I 
2310 FOR I-l TO 2 
2323 PRlNT[2,2JTPBt2J' 

iNEXT I 
2338 FOR I-l TO 2 
2348 PRlNTI6 1 6JTflBt21*" 

' :NEXT I 
2350 FOR I-l TO 2 
2368 PRlNl[2,2JTHBt2)' 

'.NEXT I 
2370 FOR 1=1 TO 2 
2380 PRlNTt6,6JTPB(2)' 

' :NEXT I 
2390 FOR I-l TO 2 
240B PRlNTt2.2JTPBC2)" 

iNEXT I 
2418 FOR 1-1 TO 2 
2428 PRINT(6,6JTPBC2)" 

' :NEXT I 
243B FOR I-l TO 2 
2448 PRlNTI2,23rPBC2)" 

-iNEXT I 
24SB FOR 1-1 TO 2 
246B PRINT[6,BJTPB[2)" 

'iNEXT I 
2470 PRINT 'PRINT 

248B REP - 

2498 P0K£5q2B8,BiINPUT fl«:PRINT 

2568 IF (** = ■■■[- THEN GOSUB 4180 

2518 IF m«-'ChTPLPN- THEN PRINT'C'EST 81 

EN'iPRlNTiGOT02S5B 

252B IF niO'CRTPL/WTHENPRINT'ENCORE UN 

£ FOIS •':G0T022?B 

2530 REP 

2548 REP 

2558 CLSiPRINT'OUEL EST CELUI-CI ?' 
2568 FOR I-l TO IBBBiNEXT I'PRINTiCLS 
257B PRINT iPRINT iPRINT 
2508 FOR I-l TO 10 
2598 PRINU2,2JTf«8C2)' 

' 'NEXT I 
2680 FOR 1-1 TO 10 
2618 PRINU?,?lTP.et2)" 

' =NEXT I 
2620 PRINT 

2638 REP 

2646 POK£5420B,Bi INPUT ft* =PRINT 
2650 IF ft*--T- THEN GOSUB 4188 
266B IF A*-'PONPC0' THEN PRINT'C'EST BIE 
N" iPRINT JG0T027BB 

2670 IF A«O'P0NflC0"THENPRJNT'ENC0RE UNE 
FOIS " :G0TQ2568 

2688 REP — 

2698 REP 

2780 CLSiPRINT'OUEL EST CELUI-CI ?" 

2710 FOR I-l TO !O0B;NEXT PPRlNTiCLS 

2728 PRINT :PR!NT iPRINT 

2738 FOR 1-1 TO 28 

2748 PRjNUl,4JT«i[2J" ' ! iPRI 

NU6,6JTABCI4J" " I iPRINTf.2,2] 

TAeC26J" 

2758 NEXT I 

2768 PRINT 

2778 REP 

2788 POK£S1288,0iINPUT ft* iPRINT 'PRINT 

2798 IF rt«--T" THEN GOSUB 1180 

2088 IF ftf'MI-l" THEN PRINT'C'EST BIEN' 

iPRINT 'GOTO 2840 

2818 IF A«O''n«.rTHENrRINI"EHC0RE UNE F 

OIS 'I&OT027I8 

2828 REP 

2838 REP 

2818 CLSiPRINT'OUEL EST CELUI-CI ?" 
2858 FOR I-l TO I800:NEXT UPRINT'CLS • 
2868 PRINT 'PRINTifRINT 
2878 fOR I-l TO 18 



788» PWINf[7,7)TAet?)' ' i :«! 

N7[2,?JTPeil4j- 

2898 N: .- 

29M FOR I-l TO IB 

29lt P«lNT[7,7]T»(2)- * i iP*I 

NTI4,4)T(Wtl4)' 

2920 MtXT I 
29» PRINT 
2948 REP — - 

2958 POKE542B9,0'INPUT '< 

2968 IF M--T- TME^ G0SU8 4I0* 

2970 IF M--rwo«l-SCftR' Tf<N PRINT'C'EST 

SIEN'iGOTO 301»:-!(;nT 
2988 IF MO-r*O»eftSC*R-TrtMPRINT-eNC0RE 

UNE FOIS ' 'G0TO78S8 

2998 REP — 

3000 REP- - - 

38I0 CLSiPR-lNTOUEL EST CELUl-Cl V 
3828 FOR l-| TO leeeiNCXI liPRlNTiCLS 
3838 PRINT -PRINT iPRINT 
3040 FOR I»1 TO 7 

3858 PRJNU«,4JTpe(?)- 

■-■ - 
306B FOR 1*1 TO 7 
3078 PRlNTt6,6JT«B(2J* 

-NEXT 1 
3B8B FOR I-l TO 7 
3890 PRlNT[2,2)TAB[71' 

-.H£XT I 
3188 PRINT 

3110 REP - 

3128 POK£Sl288,0'INPUT *«:PRINT 

3138 IF n»-'T' THEN GOSUB 4IB8 

3148 IF 0*-'£THlOPl£' THEN PRINT'C'EST B 

I£N':G0T03l88 

3IS0 IF P.«<>'-ETNI0P1E'TNENPRINT-ENC6«E U 

NE FOIS *:G0T03B28 

3I6B REP- - 

3178 REP 

3168 CLSiPRINT'OUEL EST CELUl-CI ? 

3138 FOR I-l TO IB08iN£XT I'PRINT'CLS 
3280 PRINT iPRINT 'PRINT 
3210 FOR 1-1 TO 10 
322B PRINU?,7JT«BC2>' 

-'NEXT I 
3230 FOR 1-1 TO 18 
32*8 PRJNT12.2JTMK2)" 

"'NEXT I 
32S0 PRINT 

3260 REP 

327B P0KE54288,B'INPUT ft* ^PRINT 

3280 IF ft*'-T- THEN GOSUB 4188 

3290 IF fl*-'POLOGN£" THEN PRINT'C'EST Bl 

EN- iG0T0333B 

3380 IF H«O"P0L0GNE"TMENrRlNT'ENC0RE UN 

E FOIS -:G0T03iaB 

3310 REP 

3320 REP 

3338 CLS'PRINT'OUEL EST CELUI-CI ?' 
3340 FOR I-l TO IBBBiNEXT I'PRINT'CLS 
3350 PRINT 'PRINT'PRINT 
3360 FOR 1-1 TO 7 
3378 PRlNU4,4JTftBC2J' 

- :N£XT I 
3380 FOR I-l TO 7 
3390 PRINTC6,ajTnO(2}- 

" iNEXT I 
3400 FOR 1-1 TO 7 
3410 PRINTtl . I ]ThB(7)" 

"iNEXT I 
342B PRINT 

3438 REP 

344B P0K£542BB,B'INPUT fl«iPRINT 

345B IF fl«--T- THEN GOSUB 4 1 8B 

3168 IF H«-"G(4flON" THEN PRINT'C'EST BIEN 

' iPRINT :GOT03460 

3178 IF MO"Gr>BDH"THENPRINT"ENC0RE UNE 

FOIS "1GOTO3310 

3468 REP 

3198 CLS'PRINT'OUEL EST CELUI-CI ? 

3580 FOR I-l TO 1BB0:N£XT IiPRINT'CLS 

3510 PRINT iPRINTiPRINT 

3520 FOR 1-1 TO 8 

3536 PRINTC2,2NhBC2J" ' i :PRI 

NU7,?)TPBCI4)" "; :PRINT[2,21TflBCI8r 

- iNEXT I 
3546 FOR 1-1 TO 4 
35S8 PRlNTt,7,71TP8C2J- 

' 'NEXT I 
3500 FOR 1-1 TO 8 

3570 PRINTC7,2)TPBC2J' " ! 'PRI 

NTt7,?JT0B(l4J" "; PRINT[2.2JTflBtie): 

" iNEXT I 
3588 PRINT 

3590 REP 

3688 POKE54286,0'INPUT A«'PRJNl 

3618 IF fl«-"T" THEN GOSUB 4188 

3628 IF p-I-'DhNEPARK" THEN PRINT'C'EST 8 

IEN , 'iG0I0364B 

3638 IF ftlO'OONEPP-RX'THEHPRINT'ENCORE U 

NE FOIS "1G0T035B8 

3648 REP — 

3650 CL£:P«INU7,arauEL EST CELUl-Cl ? 

3666 FOR 1-1 TO 1088 NEXT J .PRINT -CLS 

3678 PRIN1 IPHINT ifRlNI 

3OB0 FOR 1-1 TO 7 

3690 PRINU1.1JTHBC2)*' 

"i NEXT I 
3708 PRINT17,7JT0fl(2)" 
iipRlNT[2,7]IPBCie)-7073-,ipRINTt7,?)Tft8 

(2«)' 

3710 PRlNTt2.7JTPBt2)' " 1 ! 

PRlNTC2 1 7JTflfll1?)' , C4C«7E7AC4C4";'PRINTt2 

,7JTftBl28)' 

3728 PRINTL2,7]TnBC7J' 

P«INTt2,7)TMIC17rE0 EE" i >PRlNTt2,7JT 

ftBt28)' 

3738 PRINIt2,?JTnD£2)" 

iPRINTt2,?]I«(l7J-eD EE~iiPRINT[2,7JTrt 

B(2BJ- 

3746 PRINU2 I 7JTP-8C2}' I* 

PRINU2,7)TnBCI7l" tEEEEDEO -i'PRINTC2,7 

1I0B(2BJ" 

3750 PRlNTI2,7]TflB(2)' ■' 

PRINTt2,?JTABU7J-eEeE EDED' 1 .PRINH2.7 

1TW128J" 



BELOTE DE COMPTOIR 



Restez chez vous et profilez des joies de la belote de 

comptoir grace a ce programme qui vous fournira trois 

partenaires. Attention, ils jouent bien. 

En prime, pour les malchanceux, vous pouvez even- 

tuellement vous "retake" en jouant a ('Oubliette du 

Donjon. 

Daniel BOTTON 

Mode demptoi: 

Les regies pour les neophytes sont dans le programme. Tapez 

d'abord la table des formes ($ 1000 a $ l220).Sauvegardez la 

(nomrCARTES) par BSAVE CARTES.AS 1000,L$ 220. Rajouter en- 

surte dans le programme la ligne: 

7 PRINT CHR$ (4):"BLOAD CARTES - . 




APPLE" 



1 Rtn LA BELOTE D€ COHPTOIR 
3 HOME i PRINT i PRINT i PRINT " 
LA BCLOTE D£ COMPTO 
Ift"l PRINT i PRINT I PRINT 
10 DIN VL»(7),KL413> ,JC<31) 
12 Din PI CM>,T1 <4> ,CJ(4I ,J<?(4> 
15 DIM PO(7) 
20 RESTORE 
30 FOR I - O TO 7 1 READ VL* ( I ) I Hi 

33 FOR I - O TO 3i READ KL»(I>: Nf 

40 DATA SEPT, HUIT, DAME, ROI.D1X, 

AS. NEUF, VALET 
43 DATA PIQUE. TREFLE.CARREAU. CO 

EUR 
47 NOIR - 3: ROUGE - 3 
SO FOR I - O TO 31iJC(I) - Ii NEK' 



37 NEIT I 

se po(0» - .4ijpoct) - .3nP0(2) - 

.38iPO(3) - -&3 

59 PO<41 - .73iPO(3) - .aiiP0(6) - 

.9iPOC7> - 1 
»0 PRINT : PRINT 1 PRINT "VOULEZ 
-VOLS LA REGLE DU JEU 7 "I 

s>2 get r« 

64 IF R» < > -O" THEN SOTO 90 
63 HOME J PRINT "ON JOUE AVEC UN 
JEU DE 32 CARTES. "1 PRINT ■ 
LE PRINCIPE EST D'ENGAGER DE 
S PARIS SUR"! PRINT -LES RES 
ULTATS O'UNE LEVEE DE V8EL0T 
E "I PRINT - A TOUT-ATQUT" 

60 PRINT t PRINT "CHACUN DISTRIB 

UE A TOUR DE ROLE. "1 PRINT 
-CHAQUE JOUEUR RECQIT UNE CA 
RTE.-: PRINT "LES ENCHERES V 
ONT DETERMINER ,OU£L "' PRINT 
-JOUEUR VA JOUER EN PREMIER. 

69 PRINT "COMME IL N'Y A OU'UN S 

EUL PLI, JOUE A"i PRINT "T0U 
T-ATOUT, SA CARTE DETERMINER 
A LA-1 PRINT "COULEUR DEMAND 
E£." 

70 PRINT ! PRINT "CMAQUE JOUEUR. 



A SON TOUR, PEUT i"i PRINT 
- - PASSER "I PRINT ■ - DI 
RE UN NOMBRE SUPERIEUR AUX A 
UTRES-I PRINT -NOMBRES EVENT 
UELLEMENT LANCEB "1 PRINT "A 
UPARAVANT 1 CA L' ENGAGE A JO 
UER EN "1 PRINT "PREMIER- 
PRINT ! PRINT "APPUYEZ SUR UN 
E TOUCME POUR CDNTINUER"! t GET 



-LES ENCHERES CESSENT L 
APRES-1 PRINT "UNE A 
NNONCE, TDUS LES AUTRES JOUE 
URS -I PRINT "ONT PASSE. CEL 
UI QUI A LANCE LA "1 PRINT ■ 
DERNIERE ANNONCE POSE SA CAR 
TE EN-1 

PRINT "PREMIER. LES AUTRES L" 
InlTENT." 

PRINT I PRINT -LE VAINQUEUR D 
U PLI EST LE POSSESSEUR": PRINT 
-DE LA PLUS FORTE CARTE DEL 
A CDULEUR-J PRINT "DEMANDEE. 
-I PRINT "(LA PLUS FORTE CAR 
TE EST LE VALET, PUIS": PRINT 
•LE NEUF, PUIS AS, DIX, ROI, 
DAME, MUIT,"i PRINT "SEPT)" 

PRINT I PRINT "LE VAINOUEUR D 
U PLI MAROUE AUTANT DE": PRINT 
"POINTS QUE DE JOUEURS SI LE 
S POINTS DE"> PRINT "LA LEVE 
E DEPASSENT OU EGALENT L'ENC 
HERE": PRINT "OBTENUE. SIMON 
, IL PERD CE NOMBRE DE": PRINT 
"POINTS. "1 

PRINT : PRINT "APPUYEZ SUR UN 
E TOUCHE POUR CDMMENCER"U GET 
R»j PRINT : PRINT 

REM DEBUT DE LA PARTIE 

REM MISE A ZERO DU TOTAL DE 
CHADUE JOUEUR 

FOR I - I TO 4iTl(IJ - Oi NEXT 



MANCHE NUMERO "IN9i PRINT : 

IF TD - 1 THEN PRINT "VOUS 
DISTRI6UEZ"-, GOTO 103 
PRINT "LE JOUEUR NUMERO "I TD 
I " DISTRIBUE " 
REM BRASSAGE DES CARTES 
FOR I - 31 TO I STEP - 1 
HI » INT (I • RND (I)) 
Kl - JCIDlJCd; - JC(Hl)lJC( 



D - TD - 4 
44o GOtO 97 
430 PRINT t PRINT 'LA FAATIE EST 

TERMIMEL. . . 
433 PR I N I I 

459 REM RECHERCHE DU GAGNANT 
440 IT - !!llur/j - I:J9(N0» " t 

462 FOR I - 2 TO 4 

464 IF 11(11 < TF THEN 469 

463 IF T1(I> • TF THEN NO - I I TF 

- TI(l>lJ9(NOI - !■ GOTO 46 
9 
466 NG - NG • 1:J9(*i> • 1 
469 NE I I I 

470 IF NO - I THEN PRINT "LE JO 
EUR NUMERO 1 -|J9(i>|* a SAG 
ME ■ -1 GOTO 400 

472 PRINT " LES JOUEURS SUIVANIS 

ONT GADNC 1- 

473 FOR I - I TO NOl PRINT - JOU 
EUR NUnERO -IJ9UU NEXT I 

4BO PRINT t PRINT 'VOULEZ-VOUS F 

- AIRE UNE AUTRE PARIIE 7"| 
4B3 GET RE* 

4B7 IF RE» - -O- THEN 90 
490 PRINT 1 PRINT -AU REVOIR 

HERCI D'AVOIR JOUE"! PRINT 
493 END 
IOOO CI - INT (CA / BltVI - CA - 

B • Cli RETURN 
1099 REM AFFICHAGE DES CARTES D 

U PLI 



NEX' 



TO 4iCJ( 



■ JC(I) 



I 



(INT 1 



f'f-T.' 



NM 

I TO - INT (4 • RND (1) ♦ I) 

, N9 - Oj REM INITIALISATION I 

NOMBRE DE MANCHES JOUEES 
' HGR 

1 HOME 1 VTAB 21 

> N9 - N9 * 1: PRINT TADI 101 i 



HGR 

PRINT "VOICI VOTRE CARTE "iC 

A - CJClli G05U8 tOOOtTJ - I 

: QOSUB 1 1O0 

REM DETERMINATION DE L ' ATOU 

T 
TJ - TDlEC - OiJP - 

SPEED- I0U 
TJ - TJ ♦ II IF TJ. > 4 THEN T 

J - TJ - 4 

IF TJ - JP THEN PRINT : PRINT 

"TOUS LES JOUEURS ONT PASSE 

": GOTO 199 

PRINT -JOUEUR "ITJl" : "t 

IF TJ < > 1 THEN 166 
1 PRINT "ENCHERE (E) OU PASSE 



161 IF RE4 - "P" THEN 132 

162 IF RE« < > -E- THEN 139 

163 INPUT -MONTANT DE L'ENCHERE 
7 "IE7 

164 IF E7 < - EC THEN PRINT "E 
NCHERE INSUFFI9ANTE..-r PRINT 
"L'ENCHERE PRECEDENTE EST I 
"tECi GOTO 163 

163 EC - E7iJP - li QOTO 132 
166 K3 - TJi G0SU8 1200 

168 IF CT - 1 THEN EC - E7iJP - 

169 GOTO 132 

198 REM JEU DE LA CARTE 

199 SPEED- 233 

200 HOME 1 VTAB 21 

203 PRINT " C'EST LE JOUEUR NUME 
RO "IJP: PRINT "QUI A FAIT L 
A PLUS FORTE ENCHERE 1 -[EC 

210 PRINT "C'EST A LUt DE JOUER 
LE PREMIER. .," 

220 PRINT CHR4 (7) I "APPUYEZ SUR 
UNE TOUCHE "! 1 GET R4 



233 


Al - Cli GOSUB llOO 


1110 


IF TJ - 2 TMEN'xC - BOiYC - 


240 


FDR 1 1 - I TO 3 




40: GOSUB 4000 


?«r. 


TJ - TJ ♦ I 


1120 


IF TJ - 3 THEN IC - I23IYC - 


247 


IF TJ > 4 THEN TJ - TJ - 4 




3: GOSUB 4000 


230 


CA - CJ(TJ): GOSUB lOOOl GOSUB 
1100 


1130 


IF TJ - 4 THEN XC - 170iYC - 
40 1 GOSUB 4000 


235 


NEXT 11 


1133 


RETURN 


299 


REM RECHERCHE DU GAGNANT DU 
COUP 


1199 


REM RECHERCHE DES ENCHERES 


319 


REM RECHERCHE DE LA PLUS F 


1200 


N - 4 1 REM NOMBRE DE JOUEUR 




ORTE CARTE 




S 


320 


JG - 


1203 


CA - CJIK3H GOSUB IOOO 


3;o 


CF - 


1210 


BA - INT ((10 * P1(CJ(K3>>) 


332 


FOR I - I TO 4 




• PO(VI) } 


333 


CA - CJIUt G0SU8 IOOO 


1213 


K7 - INT (3 • RND (III 




IF CI < > Al THEN 340 


1220 


IF K7 - THEN E7 • BA - 3 


337 


IF CJ(I> < CF THEN 340 


1222 


IF K7 - 1 THEN E7 - BA - 2 


338 


JG - I 


1224 


IF K7 - 2 THEN E7 - BA 


339 


CF - CJ(JG» 


1226 


IF K7 - 3 THEN E7 - BA • 2 


340 


NEXT I 


1 22B 


IF K7 - 3 THEN E7 - BA • 3 




PRINT "GAGNANT DU PLI("IJGI 


1230 


IF E7 > EC THEN 1290 


339 


REM CALCUL DES POINTS DU PL 
I 


1233 


IF EC - E7 > 3 THEN GOTO I 
293 


360 


PC - 


1283 


Kl - INT (3 * RND (1) • 1) 


362 


FOR I -'1 TO 4tRC - PC * PI I 








CJ(I))i NEXT I 


1287 


IF Kl < 3 THEN GOTO 1293 


400 


PRINT " - POINTS DU PLI 1 "1 


I28G 


E7 - EC * Kl 




PC 


1290 


CT - ll PRINT " ENCHERE 1 "1 


40S 


PRINT TAB< 10»|" L-ENCMERE 




E7I" POINTS"! GOTO 1293 




ETAIT 1 "lEC 


1293 


CT - Oi PRINT "JE PASSE- 


410 


IF PC > - EC THEN PRINT M L 


1293 


RETURN 




E JOUEUR NUMERO "UGf" GAGNE 


3999 


REM DESSIN Q'UNE CARTE JOU 




4 POINTS"iTl (JG) - TKJG) * 




EE 




4 


40OO 


HCOLOR- 3 


4 IS 


IF PC < EC THEN PRINT "LE J 


40O2 


HPLOT XC.YC TO XC ♦ 27, YC TO 




OUEUR NUMERO "|JG|" PERO 4 P 




XC ♦ 27, YC * 40 TO XC.VC * 4 




OINTS-iTHJG) - T1IJG) - 4 




TO XC.YC 


420 


PRINT "APPUYEZ SUR UNE TOUCH 


40O4 


IF VI < 2 THEN DV - VI .2 




E -Ii GET R« 


4006 


IF VI - 2 THEN DV - 7 


422 


TEXT 


4008 


IF VI - 3 THEN DV - 8 


428 


HOME 1 PRINT " VOICI LES RES 


4010 


IF VI - 4 THEN DV - 3 




ULTATS t " 


4012 


IF VI - 3 THEN DV - 1 


427 


PRINT 1 FOR I - 1 TO 4i PRINT 


4014 


IF VI - 6 THEN DV - 4 




TAB( 3) 1 "JOUEUR NUMERO "III 


4016 


IF VI - 7 THEN DV - 6 




" 1 "iTIIDi NEXT I 


4020 


HCOLOR- NOIR 


429 


IF N9 - NM THEN 4SO 


4022 


IF CJ > i THEN HCOLOR- ROU 


430 


PRINT 1 PRINT I PRINT "ON CO 




GE 




NTINUE. . " 




DRAW DV AT XC * 2, YC ♦ 10 


432 


PRINT "APPUYEZ SUR UNE TOUCH 


4026 


DRAM CI ♦ 9 AT XC * 3.YC * 




E"l : GET R* 




32 


433 


TD - TD * It IF TD > 4 THEN T 


4030 


return suite page 18 



ASPIC 



Le joueur fait evoluer un serpent qui doit avaler des 
champignons bleus, afin de s'allonger et d'incrementer 
son score en evitant toutefois de se mordre la queue, 
tes champignons rouges, ou les murs entourant I'ecran. 

Olivier JOB 

HECTOR HB 



Tout de suite il esl demande de choisir un nombre de "vies", celles 
du serpent de 1 a 7. 

L'ecran s'eftace et le "terrain" apparait. En haut a gauche, un rec- 
tangle Indique votre score S. Un autre, silue en haul el au cenlre, 
indlque la valeur C, de chaque champignon bleu. Cette valeur varie 
enlre 1 et 9. Si le serpent avale le champignon, un bruit retentit, le 
score est augmente de cette valeur et le serpent s'allonge d'autanl. 
En haut a droite. se trouve le compte a rebours indiquant le temps 
restant pour attraper le champignon. Ce temps est de 10 secondes 
au depart, puis est incr6mente de 1 a chaque vie perdue. Si le ser- 
pent n'attrape pas le champignon dans !e delai imparti, colui-ci 
change de place, le score est reduit de 3 points et le serpent s'al- 
longe d'aulant, ceci afin d'eviter que !e joueur n'essaye d'avaler que 
les champignons facilement accessibles. En bas a droite L: repre- 
sents la longueur du serpent et en bas a gauche. V' indique le nom- 
bre de vies restant. 

Un cliquetls indique que le serpent est pret. La joueur peul alots 
appuyer sur une des 4 louches qu'll a solectionnee afin de faire 
partir le serpent dans la direction voulue. Le serpent part du bord a 
gauche de I'ecran. Lorsque le serpent •'■voluo dans un sens, il faul 
evlter d'appuyer sur la touche permeltant le deplacemenl en sens 
contraire. SI le joueur appuie sur une touche differente de ceile diri- 
geant le serpent, celul-ci part automatiquement vers la droite au 
debut du jeu. Par la suite, cela n'attecte en rion le deplacemenl. 
Le systeme est le meme avec lo joystick, le pencher dans la direc- 
tion voulue et au depart, appuyer sur lo bouton. Le but du jeu est 
done d'avaler le champignon bleu, mais des manoeuvres incertaines 
peuvont amener le serpent a so manger la queue ou a rentier dans 
les murs entourant I'ecran. Dans ces deux cas, il s'efface puremen! 
et slmplement mais s'il avale un champignon rouge, e'est tout son 
corps qui se metamorphose en une ribambello de champignons, 
creant ainsi un labyrinthel 

Lorsque toutes les vies sont consommees, vous pouvez rejouer en 
tapant O et dans les memos conditions on retapant O. 



ASPIC HECTOR CHR Basic III version 2.0. 
HECTOR, 2° tour: Un jeu superbe, ASPIC qui nous 
prouve que les "pros" d'HECTOR sont des as du cla- 
vier. Remarque: Envoyez-nous vos programmes 
S.V.P.! 

N.D.L.R. 




140 sP*ed000're*tor#778'POke8.FBH0,160'f 
orfl-!,FB00to8.FBe!> 

130 r»*dV*PokeR-,V'nextH 

1S0 Po)'ei3FE3.e0'Pot'*fc3FE4,tFB 

170 9otoll60 

180 tiS«t'Kl-14'Yl-126 X3"14-Y3-l26'Lt- 
5 ■ L2-5 ■ P 1 -0 ' G8-8 ■ G 1-0 ■ P Ok e24329, - T( X3/7 
,Y3/7>-2'l- t-t-e*k<*.Fflni ; ■ K2-P »*k < 8.FBFI2 >>K 
3-P»«k<tFi ■ '4-P#»k'lF8M4)'Ptot210,31. 
16.28.2'OutPut.Ll,2e3.24,l'»ound3,I2 

190 Iff lri>'0.'-eorP#«k< 24329 )><0th«n9oto 
200<*lse3otot90 

290 eourvJ7.4e56'OutPtitE«. 14, 126.0'tt»tt 
'Dl-0 

210 p-p*»k<2«29>'H-lo»<a) 

228 sa-ln«tl«»<S8>>'Plot214,220- 16.28- 
2-outPutZ-S0. 289. 213.1 ■ tfS0>':2th«n9oto23 

230 outPutC«.Cl.C2,8'«o»ub900'Plotl24,2 
20, 16,20.2<ouif-utC.120.213.l'Se-8'tl»*t 

240 lfSl>2t.^*nSl-Sl-3'Plot30. 228,28,28, 
2-outPutSl,24,213. 1 ■ L1-L1*3'L2-L2*3 ■ P tot 
218,31, 16,2a,2'OutPutLl,283,24,l 

238 Ul-XU7'Vl-Yl/7 

260 lfW»ltTidXl)<t4*ndYl><126orP-Kl«fldKl 
><14*TidYl><IZ6th«n01-l 

278 tfW-2orP-K2th«n01-2 



260 lfW-4orP-K3th«nC»3 

290 lfW-8orP-t<4th»ril>l-4 

300 if[>l-eth«nDI-2 

318 onDl«oto328-368,4ee,448 

328 lfT<Ul.VI>-3th«rioutPutE«,XlyYl,i 
tPutC2»,Xt-l,Yl-l,2'0utPutrj»,Xl,Yl,8 
0330 

338 ifTCUl .VI )-4th»noutPutE«,Xl,Yl,( 
tPutC3«,Xl-l.Yl*l,2'OutPutO».Xl,Yl,8 
0330 

340 outPutEl».Xl,Yl,0'OutPutH«,Xl,Y: 
GutPutD»,Xl.Yl,e 

338 KU1.V1 >-I'Xl-Xl-7*outPutTl».Xl, 
2'9oto480 

368 IfKUl.Vl J-3ther.outPutEt,Xl,Yl.t 
tPutCl*.Xl*l,Yt-l,2'OutPutO*.Xl,Yl,0 
0398 

370 tfKUl.Vt ;-4thenoutPutE«,Xl,Yl,( 
tPiJtC4«.Xl*l,YJ»l,2'OutPutOt.Xl,Yl,0 
o390 

390 outPutEl«,Xl,Y1.0 outPutH«-Xl,Y: 
OutPutD«,Xl,Y1.0 

390 T(U1,V1 J-2'Xl-Xl+7'OutPutT2«,Xl, 
2'«oto49e 

408 ifT(Ul<Vl >-Uh*r,outPutEt,Xl,Yl,l 
tPutC4«,Xl + l,Yl»l,2>outPutrj»,Xl-Yl,e 
0438 



410 lfKUl,Vl)-2th#noatPutE«,Xl.Yl.e'Ou 
tPutC3«,Xl-l.Yl+l,2'OutPutM,Xl.Yl,8'9ot 
0438 

420 outPutE2«,Xl.Y1.8'OutPutV«,Xl.Y1.2' 
outPu.tD«-Xl,Yl,8 

438 T(Ul,VU-3'Yl-Yl*7outPutT3«,Xl.Yl, 
2 ■ 9oto488 

440 IfKUl.Vl )-ltlier»outPijtE*.Xl,Yl,e-ou 
tP'jtCl«,Xt + l,Yl-1.2'0utPutU«.Xl,Yl,9'9,ot 
0470 

450 lfT'Ul.Vl )-2thenoutPutE«.Xl.Yl,0ou 
tPotC2«.Xl-l,Yl-1.2'oatPutO»,Xl,Yl,0'9ot 
o470 

460 ou.tPutE2«,Xl.Yl,0'outPutVt,Kl,Yl,2' 
o.jtPutD»,Xl,Y1.0 

478 T(U1.V1 J-4 Yl-Yl-7outPutT4t,Xl,Yl, 
2 

490 Ul-XI'7 V1-YU7' ifXl-ClindYl-C2th»r. 
9oto4?6 ■ el se9oto300 

498 tone590, 10 Plo*-,210- 31 . 20-28.2'P lot3 
0,220,20.29,2 L1-L1*C L2-L2*C'S1-S1*C ou 
tfutL 1,293,24,1 oi/tPutSl.24,213, 1 9o»ub9 
90'Plotl24,229,16,20,2'OutPijtC, 129,213,1 
■tlset S0-0 

308 IfKUl.Vl '>-:0*hen^oto638 elstT^UI.V 
I >-01 

310 ifL2-9th*n9oto538 

320 L2»L2-l'Ooto2ie_ 

339 U3-X3/7 ' V3-Y3// ■ D3-TC U3. V3 ) T< U3. V3 
)-8 o-jtPutE«,X3.Y3.0 

340 ifD3-lth»nX3-X3-7 
330 1 f P3-2thenX3-X3+7 

369 ifD3-3th«riY3-Y3*7 

370 lfD3-4th*nY3-Y3-7 

368 T3-T<X3'7,Y3'7J'ifT3-lthenoutPutH«, 
X3,Y3,2outPut01«,X3,Y3.8 

398 JfT3-2thenoutPutH».X3,Y3,2'OutPiitQ2 
*,X3,Y3.8 

600 If T3-3thtnoutPutV». X3, Y3. 2 ' outPut03 
»,X3,Y3,0 

618 lfT3-4th*noutPUtV«,X3,Y3,2>outPut04 
*,X3.Y3,0 

620 9oto210 

630 lfT<Ul.Vl>-7*f.dX3XHorT<UI.Vl >-7«n 
dY3.V126thenPl-2'C8-l'Gl-7'9oto67a 

640 IfKUl.Vl )-6thenPl-rG0-0'Gl-8aoto 
670 

633 IfKUl.Vl )-flthenPl — t 'G0-0'Cl-0'9ot 
0670 

660 Pl-0'G0-0 Gl-9 

6?V M3-y3/7.V3-Y3^7'[J3-T':U3,V3)'OUtPutE 
♦ ,:•:■ ^.iVoutPutC»,X3,Y3,G0'TCU3,V3)-Gl 

699 if03-lth*nX3-X3-7 

690 ifD3-2th«nX3-X3*7 

780 if03-3thenY3-Y3t7 

710 ifD3-4th»nY3-Y3-7 

720 iJ3-X3/7'V3-Y3'7'lfT(U3,Y3>-7orTrU3, 
73 '.•~6orT.tJ3. V3 >0th»n4oto739 ' »liefloto678 

730 outPutE«,X3,Y3.G8'T(U3.V3>-Gl'lfPl- 
2tki«noutPutE«,X3.Y3,a'OutPutC«,X3,Y3.1-T 
<U3,V3>-7 

740 lfPi-lth*noutPutE»-X3,Y3,0<outPutO« 
,X3.Y3,3T(U3,V3)-6 

730 if PI — 1 th*noutPut£t, X3, Y3, 2 ' outPutO 
•,X3,Y3,3>T<U3.V3)-8 

Suite pago 14 



CHEMIN 



Jeu de reflexion, original et nouveau. CHEMIN est faci- 
lement transposable sur d'autres micros (meme HP41J) 
Une lutte contre le hasard, le temps et la logique. 

Philippe LE FRANCOIS 

Le mode demptoi el "diverses explications" sont incluses dans le 

Kogramme. Pour ceux que la presentation ennuie, appuyez sur !a 
ine d'espacement. 
Pour les curieux. le RND(-TI) de la ligne 2510 sert a. obtenir un 
tirage completement aleatoire. 

Pour les presses, enlever I'indexation a Tinteneur des boucles 
FOR... NEXT. 

Pour les paresseux. ne pas taper les lignes entre 280 et 1030 inclu- 
ses. et ne pas taper les REM. 
Enfin, pour ceux qui ont une television couleur, changer la couleur. 



COMMODORE 64 



208 REM ••-••••••••.•...*..*<..,..*.,,. 

201 rem « * 

292 rem • initialisation - generique * 

203 REM « t 

204 REM *•*«•**•••••••••«••*••••••••••• 

210 POKE53280.6 P0KE53281.12 
220 DINTR*<:6,6.'.TJ*>6.6>.CH*<;16. 
230 Aft*l RB=1 NC=0 
240 IFFEEK<;2*3>=6uTKEN15ie 

250 PRINT":3****H , — , , ,-, . rt _- rt . 

268 PRINT" I 1 1 t- I v 1 1 1 X | 

270 PRINT" • ■ ■>■■ ' <~u ^ 

280 FORT="1TO200 IFFEEK',203..=68TMENT=2u«0 G0TO1518 

230 NEXTT 

300 PRINT-apBgW PRINCIPE DU JEU : LES 26 LEITRES DE 

310 PRINT- L'RLPHABET ET LES 10 CHIFFRES ONT ETE" 

320 PRINT"* MELANGES." 

330 FORT-1TO400 IFPEE*. -.^3; =60TH£N T=2000 G07G1 510 

340 NEXTT 

350 PRINT"* BUT VOUS DEVEZ RETROUVER L'ORDRE — ' 

360 PRINT* DANS LEQUEL ILS ONT ETE PLACES SUR UN" 

37* PRINT"* PLATERU 6X6." 

330 FORT»ITO600: IFPE£KC203>»60THENT"2080:GOTO1510 

390 NEXTT 

400 PRINT-3i".TRB(12va;0nMENT FRIRE ? 

4[0 PRINT"* V0US PARTEZ DE LFi CRSE SITUS EN HRUT" 

429 PRINT— ET A GAUCHE <CHSE Tl* !■», ET VOUS DEMAN-" 

430 PRINT'DEZ R HLLEP JUSQU'A UNE LETTRE 0U UN" 
440 PRINT-CHIFFRE DE VOTPE CHOIX ! POUR CELA VOUS". 
450 PRINT-aWPUYEZ SIMPLEMENT SUR CETTE LETTRE OU" 
460 PRINT-SUR CE CHIFFRE.ST 

470 FORT*1TO1500 ; IFPEEK(203)=60THENT=2000:GOTO1518 
488 NEXTT 

490 PRINT"** LE COMMODORE VOUS REPONDRA PAR UNE" 
500 PRINT-SUITE CE LETTPES ET DE CHIFFRES"* QUI COR-" 
510 PRlNT"T?ESPuNORONT R L'HJH DES PLUS COURTS CHE-" 
520 PRINT-MINSa ENTRE LA CASE DE DEPART ET LR CASE" 
530 PRINT'D'ARRIVEE ■ A CE MOMENT, VOTRE liEASE" 
540 PRINT "D'ARRIVEE DEVIENT* VOTRE ITCHSE DE DEPART*. ETC . 
350 FORT»1TO1500 IFPEEK<283>«60THENT=2B08 G0T015I8 
560 NEXTT 

578 PRINT"** BATTEZ-VOUS CONTRE LE "URSftRD*. LE- 

SS© PRINT" ITTEMPS*. OU BIEN ENCORE- CONTRE VOTRE" 
590 PRINT- ILOGIQUESt ..." 
680 FORT-ITO3000-NEX7 

619 PR I NT" 3*1 PRR EXEMPLE. IMAGINONS CRVEC UN ECHI-" 

620 PRINT-QUIER PLUS PETIT; •" 

638 PRINT"! LR CRSE TO 2M CONTIENT WW 
640 PRINT" LR CRSE 7ID 4» CONTIENT WW 

639 PRINT"* VOUS VENEZ DE DEMfiNDER R RLLER EN WM,' 

669 PRINT-DONC VOTRE NOUVELLE CRSE DE DEPRRT EST" 

670 PRINT-SB 2*. VOUS VOULEZ RLLER EN SHa. " 

689 PRINT" , ," 

690 PRINT" IE K D PI" 
700 PRINT- IL BF* C J I" 
71B PRINT" 10 H N I 1" 
720 PRINT" IM 8 G 5B*r 
730 PRINT" < " 

749 PRINT" PRRMI LES DIFFERENTES REPONSES P0SSI-" 
730 PRIHT*BLES, IL V R -" 

769 PRINT" - F C 'J I R--PRINT" - F H H R" 

770 PRINT" - F C N G A" PRINT* - ET CRETERR ... " 

789 PRIHT"* APPUYEZ SUR SBHIFTW ^HHIT633, I 

790 PRIHT'-JI REHRRQUE8 (■ 
890 PRINT' ' ' ■ -* 

818 PRINT** 13 ATTENDED POUR JOUER QUE LE CHRONOME-" 

828 PRINT-TTRE COMMENCE fl TguRHER.- 

839 PRINT-* 2> POUR LE WREMIER COUFfe VOUS ETES SEN" 

849 PRIMT-HPIUT» ET SH GAUCHER DU TABLEAU. * 

330 FrjRT-ITO590-IFPEEKf203)-60THENT-2000 GOTO1510 

869 NEXTT 

379 PRINT-B 3J LA SOLUTION EST EN FAIT DOUBLE. CHR" 

389 PRINT-PRP SYMETPIE -" 

890 PRINT** D C E D 1 L" 

900 PRINT** 1 S G EQUTVAUT R C 8 P* 

919 PRINT"* L P 2 E 2" 

929 FORT-ITO300; IFPE£X<293>-69THENT-2000OOTO1310 

930 NEXTT 

949 PRINT"* 4) DONC. SDE3 LE PREMIER COUP*. VOUS POU-" 

950 PRINT-HrtZ SPLHCEP 2 SIGNES* <LE7TRE OU CHIFFRE) ■ " 
969 PRIHT-H - L£ ai ERM 'SIGNE' DE LA REPONSE r-£N" 
979 PRINT"HAUT A ORUCHEa. " 

989 PRINT" - LE ^ ND* '3IGNE' DE LR REPONSE SBOIT" 

399 PRINT-m DROITE. SOIT EN DESSQUS*. " 

1899 FORT-1TO400. IFPEEK(203>-60THENT»2008 00T01518 

1818 NEXTT 

1820 PRINT"* RPPUVEZ SUR aSHIFTM" 

1599 REM •••••*«••••*••**•****»**•*•*•• 
1591 REM * • 

1392 REM • CORPS DU PROGRAMME • 

1393 REM • * 

1394 PEM •*•••••»•*••♦•••«•»••••*•••**• 
1318 GOSUB28I0- REM PREPARE L'ECRAN 
1520 GOSUB2310; PEM REMP. TRt ET TJ« 
1330 OOSUB30I0 PEM SAISIE DU JEU 
1540 GOSUB3510 REM TPOUVE UN CHEMIN 
1330 GOSUB4818 PEM RESULTRT 

1568 OOTO1530 CORPS DU PROGRAMME - 



2000 PEM ♦♦*»•*♦«*♦••♦•»***♦«♦•«♦»•»«»* 

2^01 REM * « 

2882 PEM • PftEPRRE L ECRflN • 
2803 REM * * 

2984 REM .............................. 

2010 PRIHT-3";TBB(54>;'«* CNEMIN **" 
2028 PRINT3PC"83.'."R SCDEF" 

2630 PPINT" . ." 

204O FORA=1T06 

2058 ■ PRINTA-III I" 

2068 PPINT" I p 

207O NEXT A 

2989 PRINT" T ■" 

2030 PRINT "-WtftW".TRB'-'26>."ai 

2100 FORI = 1TOW 

2110 1 PRINTTAB''.26j.' , » 

2120 NEXT] 

2130 FPIHT"flfl«W*wm»M".TflB.:i?'i.' , CnuP No" 

2140 PRINTTAB<53>."0 0" 

2158 PRINTTAB( 138); "TEMPS" 

2160 FPlNrrflB<5A'."80 08" 

2170 GO3U&S3I0 

2130 RETURN PREPARE L'ECRAN - 

2500 REM **«**•••••*•«•* »•«... »•«*•*••• 

2501 REM • , 

2502 REM « INITIALISE TRSCB.C) * 

2503 REM * . 
2584 REM •***«**t*«*******««4*f •*•*««•< 
2318 H=RND(-TI) 

2528 FORfl=65TO90 

2538 ! B=INT«RNDU)*6) + 1 

2548 C=INT'.RND<Ui6>*l 

2550 IFTR*( •0O--THEN2538 

2560 - TRJ(B.i ^CHR$<ftjTJ«CB.C;=-." 

2370 NEXTA 

2580 F0RR=8TO9 



4190 
4118 
4500 
4301 
4502 
4503 
4304 
4510 
4328 
4530 
4548 
4538 
4560 

4570 

4588 
4538 
4680 
4610 
4628 
4630 
4640 
4658 
4668 
4670 
4688 
4690 



2598 B-INTCRND'.l)i»6) + l 

2688 : C-INTCRND<1;»6H1 

2610 - IFTRf<B.C)O""TMEN2590 

2629 : TR*(B»C>=RIGHT*<STR$CR>,lJ.TJ*CB,C)=". 

2638 NEXTA 

2640 TI*="00e000" 

■■2638 RETURN, INITIALISE TRJCB.C5 - 

3088 REM »♦■*•»♦♦**»*»•**#»«.•♦»♦»»♦.••» 

3881 REM * * 

3882 REM • SRISIE DU JEU * 
3003 REM « * 
3804 REM *«*4**«M«********«««***>**»*« 
3818 PDKE138.0 

3028 PRINT"*n-aninanKOaK-US»-'TR8(18^MIDt(TIt. 

3.2)." ",RIGHTf(TI«,2J 

3038 FL=0:GETCA» 

3040 IFCR*»"*-THEN4510 REM TOUCHE Fl 

3030 IFCfl*»"ir'THEN6ei9 REM TOUCHE F7 

3868 IFCA*<"A"0RCR*>"Z"THENFL=1 

3079 IFCR*t"8"ORCR»>"9"THENFL=FL+l 

3088 IFFL-2THEN3028 

3898 RETURN- SRISIE DU JEU - 

3300 REM ««■»•••**•••»••*««*«•*••...«.• 
3381 REM * • 

3502 REM » TROUVE UN CHEMIN • 

3303 REM * • 

3504 REM •*••«•••**-<»*•••«*«»«•«••«».« 
3310 R-i:B«i:CM»»TRtCRA.A8> 
3520 NC-NC+1 
3530 NC*-STR«CNC) 

3549 PRINT"*»)a*»raDBB* , '.TABC19J.MID*(NC». 
LEN<NCt;-l.l>;" -;RIGHT«(NC».lJ 
3558 lFCAf-TR»<fl,B)THEN3S99 
3368 A-R+l 

3370 IFA>6THENfi-l B-B+l 
3388 IFB<7THEN3338 
3390 DH-A-RA 
3688 DV-B-RB 
3618 A-RA 
3628 B-RB 

3638 IFINTCRNDU».3)THEN3680 
3640 IFDN-8THEN3730 
3650 A-SGN<DH)*fi 
3668 DH-DH-SGNCDH) 
3670 GOT03718 
3688 IFDV-0TNEN3730 
3698 B-SON(DV)*B 
3780 DV-DV-SGN<DV> 
3710 PRINT"*" 
3720 CHt-CHt+TRfCR.B) 
3730 IFDHO0ORDVO0THEN3638 
3740 AA-fl 
3750 AB-B 

3768 RETURN- TROUVE UN CHEMIN - 

4090 REM ••t«»MM*"M»4' M»*M«*' ••••<•»• 

4801 REM * • 

4882 REM • RFFICHE RESULTAT • 

4093 REM • • 

4894 REM »••••♦•*»**•••♦•*♦•♦•*•*••»••» 

4010 F0RR-1ST01STEP-1 

4820 CH»<fl)-CH»CR-l) 

4030 NEXTfi 

4049 CH»"CH*V*J 

4030 CHfCD-LEFTICCMf.lS) 

4060 PRINT"iB-«**WTAB<27);CH«'.13> 

4870 FORCM-12T01STEP-1 

4088 I PRINTTABl:27),■•*",CMt':CH)."■r , 



5078 

5508 
5501 
5502 
5583 
5584 
5519 
5520 
5538 
5540 
5550 
5368 
5570 
5588 
6088 
6801 
6882 
6883 



S?S3 
63B8 

6502 

6303 

S31B 
6323 
SJ'JS 
634B 
6330 
6360 
6373 
6360 
6398 
6608 
6610 
5620 
6638 
6648 
6630 

66/0 
6668 

6690 
67P6 
6718 
6720 
6730 
6748 
6730 
6 760 
67/0 
6780 
6790 



nEXTCH 

PRINT-O- 
RE TURN RFFICHE RESULTRT - 

REM •••*•»•••*.*(•■..*....,...... 

REM * • 

REM • PLACE UNE LETTRE • 

REM • $ 

REM ••••*•••••••»•<•••«•••••••••« 

GOSU85540 

POKE 198. 8 

FL=0 GETLEI 

IFLE*<*fl"ORLE*>"Z"THENFL=l 

IFLE«<"0"ORLE»> M 9-rHEMFL-FL-»l 

IFLE*0"."THEHFL=FL*1 

IFFL-3TNEN4530 

PRINTLES 

G0SUS5578 

POXE198.0 

GET CO* 

IFC0*<"R"0RCQ*>"F"TN£N4619 

PR I NT CO*. 

POKE 193.0 

GETLI* 

IFLIX-I-ORLIJ^-e-THEI-MoSe 

PRINTLI* 

TJ«CRSC(C0*)-64,VRLa I*>)=LE* 

GOSUB5010 

GOS>JB5510 

GOTO3810- PLRCE UNE LETTRE - 

REM (•»»••«••■»••*» 

REM ♦ • 

REM * PLRCE LETTRE DRN3 TJICI,J> • 

REM • • 

REM »*«**»***»«»»*»»»»««**«*t*»*« 

PR INT" B" 

LI=VRLCLU.' 

F0RI=1T03*2*LI 

! PRINT 

NEXT I 

PL=(ASC(C0»j-64J»2*1 

FRINTTRB(PL).LE* 

RETURN- — LETTRE DBMS TJjq.J> - 

REM "•••*«**•***•*•«•*•*«****««■«•• 

REM * « 

REM « MESSAGES PLACEMENT • 

REM • « 

REM ".«••... ..«...».,■«. .*,..,,,, 




PRINT" 
FRINT"* 
RETURN : 
PRINT"W 



F7 => VERIFIER 



■O PLACER UNE LETTRE OU UN CNIFFRE" 



r 



81C 



6910 

6920 

6939 

6':>4H 

6959 
6i'W 
6979 



PRINT"rm QUEL 'SIGNE' VOULEZ-VOUS PLACER " 
RETURN - 

PRINT"* R QUELLE PLRCE CCOLONNE - LIGNE) ' 
RETURN - 

REM «*•*••*«*•••••*••••*•«•••••«•« 

REM • * 

REM * VERIFICATION * 

REM * * 

REM ■••■•■•■-•*-*....*•..*......«. 

F0RA-1TO6 
! F0RB-1T06 

IFTR*<fl.8)=TJ«CR,B>THENZl-Zl+l 
IFTR*<R.B>-TJ«CB.A)THENZ2»Z2+1 
I NEXTB 
NEXTA 
I FZ 1 -360RZ2 n36T HEN65 1 

GOTO6340: VERIFICATION - 

REM * •*•«»»•»»«» •••■•«■■••■.* 

REM • « 

REM * MESSAGES DE FIN • 

REM * « 

REM Min»MM«« tMMMIKX 

PRINT ■'*S*MHODB 
PRINTTR8(48)" 

PRINT"*" END 

PRINT--JBM DOMMRGE I MRLORE"HC"ll COUPS " 

PRINTTHBC49)" ET -MID»CTU,3,2>" MIN "RI0MTt<TI*,2)" SEC 

PRINT"*** LR SOLUTION ETRIT :■ 

PRINT" , ," 

FORR-1T06 
: PRINTR"I*I. . 
: PRINT" I 
NEXTFI 

PRINT" Tl- '" 

F0RR-1T06 
F0RB-1T06 
PRINT**" 
F0RC-ITO8*2«R 

PRINT 
NEXTC 
PL-BM+1 

PRINTTRB(PL);TR»CR,8) 
NEXTB 
NEXTR 

PRINTTAB(23>" , k" 

F0RA-1T06 

: PRINTTAB<21).A"H1 I" 

■ PRINTTABC23)* I I" 

NEXTR 

'RINTTRB<23) M T '" 

ORR-1T06 
F0RB-1T06 
PRINT"*" 
F0RC-1T08*2«A 

PRINT 
NEXTC 
PL-B»2*22 

PRINTTRB(PL>.TR»CB,fl) 
! NEXTB 
NEXTR 

PRINT"** VOTRE SOLUTION ETRIT 

F0RR-1T06 
: F0RB-1T06 

PRINTTRB<16>.TJ«(8,R>; 
i NEXTB 
PRINT 
NEXTA 
PRINT"*" : END ■ - 



HEBDOGICIEL 27, rue du Gal-FOY 75008 PARIS 

VOUS POUVEZ VOUS ABONNER AU TARIF PREFERENTIEL DE 340 FRANCS POUR 52 NUMEROS AU UEU DE 
52 x 8,00 = 416 FRANCS. ABONNEMENT POUR 6 MOIS : 180 FRANCS. 



NOM: MATERIEL UTILISE : 

PRENOM : CONSOLE : 

ADRESSE: PERIPHERIES : 

REGLEMENT JOINT: DCHEQUE DCCP 



PILOTEDECHASSE 



Protegez votre coequipier de I'appareil qui tente de 
I'abattre. N'oubliez pas de vous ravitailter lorsque le be- 
soin s"en fait sentir. 
Ce jeu est totalement compatible ORIC1 et ATMOS. 



owci 




Andre VEZON 



2 REM— COMPATIBLE ORIC-1 ATMOS 

3 POXE489330 PRINTCHPVS' ppimtchp*' 
17^ PAPEP It* 2 

« cosusnooo rem Pr***nttition pilote 

OE CHfiSSE 

3 TEXT PT«-KEY« 

6 IFPEE* < 40909 >= 1 S6THENCflLL*F89B : GOTO 
19 

7 CAU.tF8O0 

10 CLS PAPER9 INK7 PEM Eff*c*.Fond no 
lr.Eerltw* Blanche 

ii for iMeeee to 43033 poke 1. 1 8 next 

I -REM Efface 'CUPS'. Coui*ur l«rt I19n 



28 nEHimiunnmanntiinwat 

21 REM*** InitliUution d*s v*r-i»l 
l«» «* 

22 REM 



24 PftPERI-r INK? 

23 S-9 SP-9 REM S-Score, SP-Scor* er 
ecedent 

39 HS-48 REM MS-P»s d* 1 *ffich.»9e 
d*» missiles 

40 FP-0 REM FP-D--*P9*u. de fin de 
Ptrtle 

41 E-l 

42 TX-0 REM I** LIMITE DE TIR «» 

43 P*-8-REM MX LIMITE DE PAVITRILLEK 
ENT *** 

43 IFPEE>«tD909>-IS6THENCALL#F39B GOT 
049 'Retou.r #uc c*r*ctere» norm*.ux 
4« CALL4F9O0 
49 CLS 

30 HIRES' PAPER4 INK? PRINTCHRW 17 ) = RE 
M Htut* resolution , Ci»t 8 leu. .Avion* 

BUnci 

31 REM*********"******.********.**,*.*** 



**.** 



32 REM***** TRACE DU VISEUR 
mmii 

33 REM 

33 CURSET129.93.0 ; DRAU8, 10, 1 
60 CURSET113,189.9'DRAW10.0,1 

63 GOSU99909 REM Tr».ce les wisslles 
70 MUSIC 3,4.1I,SN>PLAY PL. 01-3. 20830 
00 GOSUB8999 REM Tract 1 = fcabl«*u de 
bond 

90 pk-49079 REM Indic«t«ur de e*rbu 
r-*nt 

91 REM*tl*t Ir>itl*Us*tlon coordon»93 
d« deP*rt xvton *«« 

92 FORI-9 TQ PEEK' •276;' X'lNT'PNCXl >) 
■NEXT I 

93 Y-INT'.RND' 1!>*159*23> ^U-Y 

34 X-IHT/RNOM )*1 69+49 > 'C-X 

96 REM** [nitl*IJ.*#tiOtl <*i de&sir. dc 

l'«vlon ***** 

37 RG-12 3H-RC'P.-3 T-P 

30 GD-24 -HF-GD' W-3'MS-Gfi 

99 DR-3 FS-Dfl 

100 AD-12 EP-3 SF-RD^RA-EP 

101 REM 

102 IF FP-1 THEM 10000 'REM Fin de Pa 
rtle 

1 03 I FE- 1 THEMHC=X VC=Y C03U65999 ■ E=9 
GOTO?? 

104 PEM***tt**********»*.********wifz 
******** 

193 PEM**? DEBUT DE PART IE *** 
******** 
106 REM 



107 CB-CB-M REM Usure c«rbur*T>*. 

130 IF CB-6 THEM Pt-^PK-PPOKE PK,16=C 
B=0 pem Rfftch*9* du carburjint 

131 IFPEEK'PK>=13THEHP0KE4?939,B2 

1 32 IFPEEK' PK )- 1 3THEMP0KE 49039 - 67 

133 IF PV=4?049 THEM 7600 PEM Plus d 
e CarburAnt 

138 IFPE£i"*208 >-132THEN GOSUB 6000 
C03U37939 IF E=l THEN233 IFE-0 THEM218 

140 IFPEEK'*>20?>=I72THEM X=:>3 G0T013 


139 rPTEEKf«290)»188THEN X-X-8'GOT018 

160 IFPEE*'»203:>-139THEN Y-Y-8 G0TQI9 


170 EFP£EK'*2e?'=136THEMY=r*3 GOT0189 

173 IFPEEK'»233>=I36THENC0T0 2808 RE 
M ravlt*lllM*nt en vol 

189 GOSUB 1990 PEM VlttM* de I'avlo 
n cible 

199 CUR8ET113. 190-9 DPRU18,9. 1 

200 OJP3ETI29.33.0 DPFtW3.I9,I 

297 GOSUB 7900 REM Efface 1' avion 
288 IF P"1TH£H S»S-'N0*19 J-COSUB5509 
p=0 G0T093 
219 GOSUB 3009 REM De*»lr,e l'»vion 

229 if>:>hc-3 am y/.wz+z p.ho p^3 them 
7590 

230 IF/-HC.-3 HID X<HC+5 RHO BO THEM 
7890 

23? CUP3ET1 13, 199.9 DPRM10.0.1 

234 CUR'iETl28.93,0'OPHH0 ( 10.1 

233 IF E-1THFM GOSTJB9500 E-0 GOTO """I 

237 IF FP-i THEM 10000 PEM Fin de P 

240 G0T0187 REM Li P*rti« con*,»nut 

999 fiEM»mit»»>nf»«»rKr>.f*(ii(ir 

1000 PEM **f ■■[ 'I---.. '.!■ 

1991 REM 



1093 


fWWX i ■ 


1910 


V-I 


1913 


IF 0'.4 THEM v-VT- 


1016 


IFP+v>6 THEM V-0 


1020 


R-R+V 


1039 


RG-RG+<V*4J 


1940 


GH-GR+-V 


1030 


QMtOKVtej 


1960 


EP-EP*V 


1063 


IF P' 1 THEM P>I 


1079 


0- PHD' 1 > 


1080 


D-1MT'RMD' 1 >*H[>) 


1939 


IF 0>.3 THEN 1119 


1109 


D-D*-l 



1110 X=X+D 

1120 IF Y/.1Z OR X>200 THEN P-i 

1130 0=RNO | : 1 ) 

1140 M"INT<RN(X1>*ND) 

1130 IFQ>.3 THEN 1170 

1168 M-M*-l 

1170 Y-Y+M 

1180 IF Y'33 OR Y>134 THEM P=l 

1200 RETURN 

1399 REM***************************** 

T*****?** 

2890 REM PRVITRILLEMEHT EM VOL— 

2001 REM -> 

2992 IF PK>43033THEM180 

2003 IFPV.-2 THEH 139 

2004 RX-R^+t 

2093 GOSUB7000 PEM Efface 1'xvlon 

2996 FOR 1=41769 TO 42889 STEP49^P0KE 
1+18. 18 P0KEI+23,29'HEXTI 

2010 FORI-49961TO48901 STEP 40POK-EI. 
8 NEXT I 

2020 FOP 1=14 TG29 CURSETI. 139-1 'ORRH 
9,-30,l:DRRW12.-16,l;DRflW8,-3,l:HEXT 

2338 XR-INTCRND' 1 »14O+S0>'YR-IHTtRHD 
(I)*I34+39) P'2'COQPOOHEES RHVITRILLE'J 
P 

2933 RC^0 

2040 R-R*PIFP>17THEMR-1? 

2830 PX-XR^RY-YR 

2033 IF XP-C33 THEM XR-33 PX-XR 
2836 IF XP>133 THEN XP=185^RX=XR 

2037 IF YP'C43 THEN YR*43-RY=YR 

2038 IF YP>163 THEN YR=i63^PY*YR 
2869 CURSETXP.YP-1 CIPCLEP. 1 'CURSET X 
R, YP . 9 ■■ DPRW0 , -( R-l), -- DRRW0, -R, 1 
2963 IFP>4THEH CUPSETXR, YR.B-CIRCLER- 

2,1 CIRCLEP-4.1 

2078 CUPSETXR-C R^2 ) . YR-< p*2-2 ) . 1 DRRH 

2590 CURSETXP-<P*3>,YR-<R~3>,1:DRRWR* 
3,-3,1'DPPW P*3,3. 1 

2081 IFR<? THEM 2030 

2032 OPRW-<P*6>/0.1 

2933 IFP'-ll THEM 2939 

2034 CUP3ETXP-l,YP-P.l'DPRW9.-'rR/2>,l 
DPRH2.3.1 DRRW9.R^2,1 

2833 CUPSETXR-'' P'2-2">. YP-C P*2-3). 1 DR 
RHP-4,0. 1 ■DRfiU-2,l.l=PPRU-(R-S>,9.1 

2039 CUP3ETXP-'P*2>.YP-R/2.8. IF P>4TH 
EHCIRCLER^M 'CIRCLE P'4.l 

2198 CUPSETXP+'P*2>.YP-py?,0 IF P>4 T 
HEM CiPci.EP/2. I CIPCLEP'4-I 
2218 HR-IKT(RHD< 1 J*9>'VR*IHT(RND< 1 >*9 

2228 9=RHD' n [FOC.S THEN 2240 
2230 HP=HR*-I 
2248 XP-XP+HP 

2259 Q=PMD' 1 J'lFO^.S THEM GOTO2270 

2260 VP"VR*-1 
2273 YP-YR+VR 

2275 C8-CB+1 

2276 IF CB=1STHEM PY=PY-\ POKE PK.16 
CB=0 

2277 IFPK=43049 THEM 18899 
2236 IFRC=M THEM 2360 

2299 IFPEEKf «293)=172THEM XR-XR+8 
2309 IFPEEK'"293.'-133THEM XP=XR-8 
2319 IFPEEK't293)=189THEM YP-YP-8 

2329 IFPEEKf »200)-136THEMYP-YP+g 
2333 IFPEEK<t293>132THEM 2359 
2348 GOT02360 

2333 IFXP<113 OP XP>133THEN 2563 
2331 IFYP<35 OR YP>J13 THEM 2363 

2335 IFVfl-lTHEM 2363 

2336 FOR 1-41769 TO 42989 STEP40-PQKE 
I + 18.17:pr)K;EI+23,2e^NEXTI 

2337 VR-1 

2369 IFR<17 THEN XR-129 YR-100 :RC-1 G 
0T02569 
2363 IF Pfl-1 THEN Pft-3 G0T02379 

2368 XP*t20'YR-109>W>l'PR-l GOTO2360 

2369 GOTO 2560 

2370 CUPSETRX+4.PY-3. 1 FOPI=I TO 19 $ 
TEP2 DPRW5.9.1 DPflU9,l,l ^CPflU-6.0,1 

2330 DPRW9,1.1 i NEXT I 

2399 FOP I-4I760 TO 42898 5TEP43^P0KE 
I + 18.18'P0I'EI+23.23>NEXTI 

2403 XD-RX-1 -YD-PY+6 XT=IMT'PMD' 1 WIS 
0+49) YT- INT' RMO' 1 )*40 + 140) 

2448 DY-YD ' DX-XD ' TX-XT - TY-YT 

2459 CX-IHT<PHD'l >*5+.5>'CY-IMT< RND( 1 
)*3+.3> 

2460 CWWCX1>'IPQ<.3 THEN CX-CX*-I 
2479 O-PND'. 1> IF 0<.5 THEN CY-CY*-1 
2473 CB-CB+1 

2476 IF CB-10THEM PK-PK-1 ■ POKF py.16^ 
CB-0 

2477 ifpv'43040 them 10303 
2430 KT"XT*CX<tT«¥T*CY 

2430 IFPEEK'lt290)-i98THEMX,T»'.':T-6 GOTO 
3989 

2491 IFPEEK' »293 )■ 1 72THENXT-XT+6 GOTO 
3399 

2432 IFPEEK' 11293 1-180THEN YT-YT-6 GOT 
03989 

2493 IFPEEKTt298>"156THEM YT-YT+6 GOT 
03090 

2434 IFPEEK't»233-"132THEM 2496 

2435 GOTO 3939 

2496 IFXT'30 OR XT>49 THEM 3990 

2497 IFYT<143 OP YT>155 THEM3099 
2438 FOP I-4I769 TO 42030 STEP48 POKE 

1*19,17 FOKEI+23.29 MEXTI 

2499 CUPSETXD.YD.0 DRPW TX-XD, TY-YD.9 
■CIPCLE5.0 

2599 CURSETXD.YD-1 I'PRU 37-XD . Hs-Yf', 
1 C IBCLE 5. 1 GOTO3509 

2360 C'JRSETPX.PY.g CIPCLEP. 8 OJPSET P 
X.PY.3 DPRW3.-'P-1 '.0 DPHW0,-P.9 

2563 IFP.-4THEN C'JPSETRX,PY.8 CIRCLER- 
2.0 CIPCLEP-4.9 

2373 CJPSETPX-' P'2 ■ . RY-< P*2-2 J. 9 ' DPRW 
P. 9,8 

2380 CUPSETRX-'P»3'.PY-'P-i >." DMWRt 
3.-3-3 r.-PRU Ft?. 3-0 

2392 O«W-<R«6).e.0 

2333 IFR'H THEM 2398 

2584 CUPSETPX-t .RY-P.3 DRRM0. -'P'2i.3 

0PPU2 .0.9 DRRH0 . P^-2 . 9 

2335 njpsETRX-'' P/2-2 i.PY-'P*2-3 >. DP 
RHP-4,0-9 DPflU-2.1.9 DRflH-'P-8),0,0 

2599 CUPSETPX-IP-^VPY-P.'.?.!? !F R-4TH 
EMCIPCLEP^2.9 CIRCLE R'4,0 



2kV? rijPTETP'>'Pf2 '.PY-P'2.0 IF P">4 T 

HEH CIPCLEP^2.9 CIRCLER'4,9 

2619 GOTO2049 

2399 PEM**rr»T»**rtTtTtfr*t****ttt*tt 
rtxtttttt 

3909 PEMff*r D*Rloi«iwnt du *•-•■'*:• de 

r«vlt<ltl«M9nt ****** 

3991 PEM 



01 REM 



3985 IF XT' 17 OP KT>23e THEM :rr»TX 
3006 IF YTCH9 OP YT>179 THEN VT-TY 
3019 CURSETXD*YO,e'DRflW f}<-«>,TV-VX>.9 

CIPCLE3.0 

3923 CUPSETXD.Yf,, i r^Pfiti XT-:<D. YT-YC-. 1 

CIRCLE 5.1 

3030 GOTO 2440 

3499 REM»********r***r*t(rt(Tt!*ttrTt 
********* 

3598 REM**** D*PUce*ent ■*■ bun d 
■? r«vit«ilt»wnt ****** 

3595 E-l 

3588 FOR 1 = 14 T029 CUPSETI ■ 193. 1 C-PRH 
0.-30,1 PPRH12.-16.1 DRRW3.-5.1 NEXT 

350? FOP I =4??40TO4?07? POKE 1.3 MEXT 

3513 FOP I=49340TO49973 STEP5 

3539 FGP P=4569! TO 4?9ei C :TEP40 

3540 E"E*-1 I c E<9 THEM3560 
3539 POKEP.l G0T07578 

3560 POKER- 3 

3570 HEXTP 

3588 E=E*-t 

-3650 IF K49046 THEN C L =17 

3663 IF 049643 THEM CL»19 

3678 IF r>49055 THEN CL»13 

3683 POKEI-CL POKE 1+3,16 NEXTI 

3780 GOSUB 3083 PEM TibltM d» bor 

d 

3759 FOR P=45691 TO 49831 STEP40POKE 

P..9 NEXTP 

3755 WRIT58 

3769 CURSET37. 149.3 CIPCLE^.n PPRWXp- 
37.YD-149.9 

3779 FOR 1=41760 TO 42938 3TEP40.POKE 
1*13- 17 PQKE I +23. 20 NEXTI 

3799 PV= 1 i C-03'JB 9930 MS-49^PK-4307<' 

3739 CUPSETRX+4.PY-5 3 FOPI^l TO 19 S 
TEP2 DPRN5.0.9 DPPU9.1-9 DPRM-6.9.8 

3735 DPRU9,1.9:NEXTI 

3739 R-I7 

3739 REM***************************** 
********* 

3930 PEM*** ei-jn'Thefient du tuvi'j de r 
t.vittiUefwnt 

3331 PEM 



3305 XR=129 YP=103 

3819 PX=XP PY"YP 

3329 CUPSETXP.YP.1CIRCLEP.1DJRSET X 

R.YR.8DRRM0,-<R-1 ),0^DRRW0.-P, 1 

3930 IFP>4THEM CiJRSETXR.YP,9'CIRCLEP- 

2,1 CIRCLER-4.1 
3849 CUPSETXR-rR--2).YP-'P*2-2),l.DRnH 

R,9,l 

3359 CURSETXP-(R*3).YR-<R-3).l DPRWR* 
3,-3, I=DPflH R*3-3,l 

3360 IFR-7 THEN 3890 
3870 DPRU-<P*6),0,1 
3989 IFP<11 THEN 3919 

3390 DJRSETXR-I,YP-P.l-DPRW0,-CP^2).l 

DPRW2.0.1^DRRH0.R^2,1 

3399 CURSETXR-':P^2-2>,YP-(R«2-3), 1 ■ DR 
RWP-4,0.1 DPRW-2,1,1 'DRRU-(R-8>,0,1 

3919 CURSETXP-tR*2),YP-P^2,0' IF P)4TH 
ENCIPCLEP^2.1 CIRCLE R^4,l 

3339 CUR?ETXP+(P*2>.YR-R/'2.8'IF R>4 T 
HEM CIRCLER/2.1^CIRCLER^4.I 

3942 CUPSETPX.PY,9-CIPCLER.0 CURSET P 
X . PY , 9 ■ DPRN8 , -f P- 1 i . Q ■ DPRU0 . -R , 

3943 IFR>4THEM CUPSETPX,PY,9 CIRCLER- 
2.9'CIRCLER-4,0 

3344 CUP5ETPX-' P^2 ) . PY-' P*2-2 >,0' CRRW 

P. 0.0 

3945 CUPSETPX-< P*3 > . RY-C P-3 > . 9 ■■ OPRUR* 
3,-3.9'DPflw P*3.3.0 

3346 DRflU--'R*6),8,0 

3947 IFP'll THEM 3359 

3943 CUPSETPX- 1 . RY-P . 9 TPR1J0 . -'. R/2 ) , 9 

DPRU2.0.9'DPfiW0,P'2.9 

3949 CUPSETRX-< R^2-2 ), RY-( P*2-3 >. DR 
RHP-4 .9.0 OPRlJ-2 . 1 - 8 ' DRRW-f P-8 >, 9, 9 

3950 CUPSETPX-'P*2>.PY-P^2.0 IF P>4TH 
EMCIPCLEP'2.9^CIPCLE R/4,0 

3363 CURSETp;<+fP*2>.RY-R^2,0> IF P>4 T 
HEM CIPCLEP-2.0 CIPCLER^4,0 
3965 IF EF=1 THEM EF-0 G0T03172 
3979 P=P-2 IFP>1 THEN 3910 

3371 EF-1 GOT03342 

3372 FOP 1 = 14 T020 CUPSETI. i??.r? ['Pftu 
. -30 ■ DPfll-Il 2 .-16-9' DPHU9 .-3.9 MEXT 

3975 FOP 1=41760 TO 42988 STEP49 POKE 
1+13.29 POKEI+23. 29 NEXTI 

3976 VR=0 FtC=0 

3339 INK7 MS =30 TP-i r,osuB4390 TP-9 S 
=S+25 M0=M0+2 Ce=9 G0T059 

449? REH****t*t»*rf mimmi nit tr ii rt 
rititint 

4500 ppm- ~- rnnt.niP rrpftM 



4501 PEM- -■ 

4510 FOP t"409€0 TO 41290STEP49 POKE 
r 29 nr'Tl 

4529 Fnp 1*49961 TO 11281 3TEP40 ROt'E 
r ,0 HEXTI 

4530 P0KE48691.1 P0KE4864] i '■'' I ■ 
1,3'P0KE48721 1 P0KE48761.3 

4540 fhif 48991,1 P0KE48S41.3 P0KE48B 
91 ■ 1 P0KE48921.3 POKE 48361.1 

4558 RETURN 

4339 PEM* ****** inm ri M I * 1 1 1 ******* 
ttfttttt* 

5099 PEM*r» TPfiCEP OE L'RVIOM »ri 

5901 PEM 



3010 CUPSETX.Y.9 
3920 CIRCLE P.l 
5025 CUPSET X.'Y-Pi.l 
5039 DPfHi.l-flG.Gfl. 1 
5940 rjRfHI CD. 9. 1 
3039 DRRU -RG.-GR.l 
3060 DPRW 0.-EP.1 
5970 CURSET X.7,0 
3199 RETURN 

3993 REM******** »*****» f ************* 
********* 
6009 REM *** TIP *** 



6003 IFTP=1TH£N 6U9 
6006 TV.-TVl 
6919 ^FtP SHOOT 

6813 CURSETMS. 191 .0 DPRW 120-MS.-31 . 1 
6016 CURSETMS- 133. 8 DPRM 9,-3,0 
DRRU129-MS.-91.0 
6917 MS-MS* 19 IF MS>130THENTP-1 
6020 IF X+R<129 OR X-PM29 THEN 6198 
6039 IF Y+P'109 OP Y-P-190 THEN 6180 
6333 T-^=9 
6849 EXPLODE E-l 
6C45 INK] 

6038 CURSET120. 100,1 DRRW 0-100. 1 
6869 C.WSET129. 188,1 DRRW 8. 90 .1 
6979 CUPSET128. 188,1 DRRW-30.-30. 1 
6088 CUPSET129- 190. 1DRRW+30. +50.1 
6890 CURSET128. 190- 1DRRH+50. -30.1 
6091 CURSET 120. 100.1 DRRW-30.+30. 1 
6992 CJPSET128, 109.1 DRRW-198,8 .1 
6093 OJRSET120. 180.0 ■DRAW 9.-180.9 
6894 C'.»RSET129. 100-9 DRAW 9- 90 -8 
6033 CURSET120. 100.9 DRRU-30,-30.8 
6896 CURSET 129. 108- 9=DRnw+30. +30.0 

6097 CUPSETI 29. 100.9 DPRw+50. -3^.0 

6098 CUPSET128. 109,0 DPRW-39.+59.9 
6999 CURSET 129.109-0 CRRW -199.9-9 G 

OSUB 7900 • IHK7 GOSUB 4509 

6199 MUSIC 3-4.lt.SN PLAY PL-OI .4200 


6193 IFT^-3 THEN7399 

6118 RETURN 

6393 REM*»***t**********fi»******i»«* 

unrnn 

7889 REM*** EFFACE. DE L 'AVION *** 
7301 PEM 



7810 Ci.fRSETC.U.9 

7028 IFT>9THEN CIRCLE T-9 

7825 CURSET C.(U-T>.o 

7030 DPAN-SH.HS.0 

7040 DRAN HF.0.0 

7939 DRAW -SH.-HS.0 

7968 PPflN O.-RA.O 

7070 CURSET C.U9 

7109 C«X ' U"Y ' T"*R ' SH"RC MS^fl MF-GDPA 
"EP 

7290 RETURN 

7300 PEM*** TIP EMNEMI *** 

7330 CURSETX. Y . 8 ■ DRHN0 . VC-Y. 1 rijPSETX 
,Y.0 DPRH9.VC-Y.0 

7368 INK1 EXPLODE 

7370 CURSETHC-VC.9 

7388 FORI-1 TO 22 CIPCLEI . 1 'NEXT 

7530 FORI-1 TO 1 1 CIPCLEI ■ CIRCLE' 2? 
-I>,0 NEXT 

7600 IFPK-*4?O40 HHD P"; = 2 THEN GOSUB I 1 
oon anTn>62^ 

7619 TEXT IMK2 PRINT PRINT- MISSION T 
EPMJNEE I Ml" 

7620 PPIMTPP1NT FP[ltT:PPINT- VOUS RV 

E2 FAIT ".S." POINTS." G0T07633 
7623 TEXTIMK4 PRINT PRINT PRINT" BR 

AVO MISSION flCCOMPLIE 11 S-Sf2 

7630 PPIMT PPIMT PRINT" VOUS RVE2 FAI 

T i in SCOPE DE ".S-" POINTS . " 
7633 IFS>SMTHEN7645 

7640 PRINT PPIMT"Vous r,e batte7 pj» 1 
e sco'c detenu Pat " 

7641 FOPI=0 TO 2 IFC2' I >>64THEHPRIMTC 
HRt<CZ<I»J 

7642 NEXTI 

7643 PPIHT".I1 e»t de "iSHi" Point*." 

7644 C0TO765E 

7645 PRINT-PRINT" VOUi d«t*n*I le Pi 
us 9rr>3 score."' 2-9 'SM-S 

7646 PRINT" Eerivez VOtr« nOM.C«P»U» 
tz mr 1»" 

7647 PRIHT'tCKlcht M' Pour- l'«nre9ist 

7648 GETM* IFNt-'T'THENigeg© 

7643 PPIMTMti >C2f Z i-ASC M« ^ 2=Z+1 'GOT 
07643 

7659 UAIT583 GOTO 19909 

7390 PEM »*** TIR AVION RECOMNfllSSfl 
HCE ***■ 

7901 PEM 

7810 GUPSETHC,VC,0 DPAW0,Y-VC, 1 ■ CURSE 
THC . VC . 8 0RAU9 . Y-VC . 

7820 INK1 'EXPLODE 

7830 CURSETX, Y. 8 

7848 FORI-1 TO 22CIPCLEI . 1 MEXT 

7330 F0PI=1 TO 11 CIPCLEI-0 CIPCLE<23 
-I>,0<NEXT 

7360 INK7 GOSUB9380 E-l -X-HC Y-VCGOT 
096 

7939 PEM********************* f**t**«* 
********* 

8809 REM TABLEAU DE BOPD 

3001 PE" - 



9010 PPINT PPIMT" "SPC 13VT.RPeiJPP.HT" 
8013 P0KE43041.7 
3029 POKE49940.17 
8838 POKE49046. 19 
9049 P0KE49856. 19 

3959 GOSUB 4SW REM Ceulaur ecrin 
3590 RETURN 

3999 REM***************************** 
ft******* 

3890 REM MISSILES - 

9881 REM 



908? IFPV-1THEN PV-8'GOTO9910 
3903 GOSUB4390 REM Couttwr •er»H 
9010 CUP3ET 33-139. 1 
?920 FOP 1-1 TO 16 

9030 CPRWO.-B.l'DRAWl .-1.1 DRRW0, 3.1 
DRAN1 .0.1 'DRAUO.-B.l 'DPAU7.8,0 
9049 IFI'16 THEM DPRl'll.9.1 
9959 MEXT I 
9969 RETURN 

9499 REM*** ***********(*»*****»***»** 
********* 

3300 PEM SCOPE — - 

9301 PEM - " 

3502 IF P-t THEM3310 

9303 IF R-l THEN S-S*1880*ND 

9394 IF R-2 THEN 8"*+STOtNJD 

9393 IF P-? THEM S-S+239IND 

9596 .IF P«4 THEH S-S+199IND 

Suito page 9 
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Flit ft* PC1500 par Francois 


TIC 


TAC 


TOE 


FX7 


02 P 




WWIMOFF 


Le TIC TAC TOE: vous y avez surement jou* 


res sou- 


d-«§ 


vent. En voici un 


programme. Pour ceux 


qui ne 










connaissent pas ce 


jeu, sachez que vous allez jouer 








contra votre 702 P, 


sur un damier de 3 x ; 


et qua 


HEN 459 


548 IF 9=6;Z=Z*I8 


16010 888 


tour de role vous placerez un de vos pions 


Le but 


449 RE! 


558 IF»=i:2=2»5 


788 6010 918 


etant d'en aligner horizontalement, verticalement ou en 


458 FOB J=3 TO 1 ST 


568 IF A=5!Z=Zt26 


886 IF 3>V=15;PRT " 


diagonale. Bonne chance, amusez-vous bienl 




EP -l:K=K*l:R=fi 
»n(K,J):H£XT J: 


565 RE! 

578 IF Z»X:X=LiL=S: 


J Bl SA6HE i":6 
0T0 988 




M. LEVEQUE 


SS8 528:fl=8:K=8 


C=l:Z=8 


881 P8T "VOUS BVE2 


Mode d'emploi: 

Fairs DEFM4. rentrer te programme, puis ie lancer. 




:RET 
528 IF fl=2:2=Z«1898 


588 2=8: RET 

688 A(L>C)=5:Z=6:PR 


696NEZ !" 
98B INP "OESIPEZ V0 


Le 702 commence, politesse oblige (cest une grosse calculalrice ou 


538 IF 9=18:2=2*588 


T "JE ME EN L 


OS UNE 80TRE P9 




un petit ordinateur). Celu 


-ci, apres que vous ayez perdu 


ou gagne, 


9 


I6NE";L;° COLON 


RUE QUI OU HON 


ou apres vous avoir dit que la partie est bloquee. vous en 
ootigatoirement une autre et si vous refuser, cest Ires 
ment qull vous saluera. 


proposers 
courtoise- 


911 f!4=f!4«fl(I,l):«5 

=H5*9(Ir2):fl6=fl 
6»fl(I,3):n7=H7* 


NE"iC:X=9 
661 V=5 
788 IF B1+B2+B3=3*V 


981 IF Ql="00!":60! 
1 








fi(I,I):J=4-l 


16010 888 


962 PR! "OHE MINE 


LIS! «e 


48 6S8 mm 579 


HEH 489 


912 98=98*11(1, JCNE 


781 IF C1*C2*C3=3«V 


F01S P";:P81 *E 


; vsc 


58 NEXT RiNEXT 1:6 


275 1FR=2!IF 1=2 1 


XT I 


:6010 888 


U1-E18E !!!" 


2 L=IHT <M«Rffl» 


oio m 


HEN 488 


913 FOR 1=1 10 6 


762 IF 01t02t03=3'V 


983 PB! "90 REVOIR 


l:C=IHT (U3«8ft 


289 FOR J=l 10 3:9= 


288 IF 8=1! IF 1=3! 


914 IF9(I)»7:lF B< 


I SOTO 888 


!":EN0 


H*>:fflT0 6B8 


rWKR.JJiNEXT J 


HEN 458 


I)«6!IF H(l)»ll 


783 IF B1tC1*01=3<V 


918 FOR 1=1 10 3:81 


5 IMP 'COLON* "■ 


:6SB 528:«=9:F0 


298 IF 8=3! IF 1=1 1 


11=8:6010 949 


I60TO 888 


=R[t»(l,!>:B2=fl 


CLIME ",L:fK 


R 1=1 10 3:0* 


HEN 458 


915 HEX! I: PR! "PAR 


764 IF B2*C2+D2=3*V 


2*fl(2.!):A3=fi3» 


•V r? •'.', 


L,C)»i:V=H6010 


IKJ.Ii 


388 RET 


HE NOLLE ! ":6 


16010 688 


9(3,1) 


-hV .'.' ft 1 


796 


218 NEXT J:6SB 528: 


498 FOR J=l 10 3:K= 


010 998 


785 IF B3«C3*03=3«-V 




a ' r 


19 FOR R=l 10 3:S= 


9=8 


WifMWKJ.K)-. 


949 FOR 1=1 10 3:B( 


;60I0 886 




R:F0R 1=1 10 3: 


268 IF R=1IIF 1=1 I 


HEX! J:6SB 529: 


I)=8:NEX! I 


786 IF BM2*03=3«V 




\ 


Miff R(R,I»9 


HEN 488 


H=8:K=9 


958 IF V=l;60T0 18 


;6010 888 




;SOT0 59 


278IFR=3lIF 1=3 1 


435 IF 8=2: IF 1=2 1 


951 60TO 5 


787 IF B3*C2»D1=3«V 


■ 



MURENVRAC 



Votre but est simple, deplacez les cubes de maniere a 
pouvoir aligner les quatre briques vertes. Pour vous 
gener, deux petites bestioles mechantes ne pensent 
qua vous manger. II ne faut pas hesiter a les ecraser 
avec les blocs!. 

M. SEBAN 

Mode d'emptoi dans le programme. 

Entrez le programme de redefinition des caracteres, sauvez-le sur 
cassette, puis tapez le programme de jeu et sauvez-le apres le pre- 
mier programme. 
Deux conseils pratiques: 

- Pour depiacer un cube, vos pieds dotvent se trouver contre le 
cube que vous voulez pousser. 

• Pour interrompre une partie en cours. tapez sur la touche Caps 
SHIFT. 

SPECTRUM 




Ifiiilil 

01011010 
ooimee 

11111111 

oioi 1010 



00011100 
Qiiii lie 
01011110 

laiLioii 
Ionian 
emeiie 



7S3« IN 



NBXT i 

79ee rem 

7»0 1 PCM 

790S PCM 

7303 »eri 

75S1 Pen 



.6, FLR9H 

10 beep 



PEDEF inlT ION 

CSPflCTEPE! 



fop r -use 



901© PCP& 



5103 

519* 
•3126 



OfiTO Bin 

DOT ft Bl'i 

DPTP BIN 

DPTO BIN 

B«TB BIN 

DATA BIN 

DOTR em 

LtOTP BIN 
PCM 

DOTP BIN 



ana DOTO 

9113 " " 

Oil* 

5115 

en's 
en? 



5«TH BIN 

&OTB DIN 

&«Tfl BIN 

DflTR BIN 

DOTP BIN 



9iio>doto 

S128 REM 

eiai dotp 
oiaa DflTP. 
Bias DATO 

8134 OPTfl 

9125 dotr 

"IBS DPTP 
912 7 DOTO 

siaa doto 

8130 RBM 
9131 D»TP 

aiaa data 

9133 OPTP 

9 13* DPTO 

B135 DPTO 

9138 OPTP 

8 137 DOTO 

S13S DATA 

8140 REM 

91*1 DPTO 

oi*a DPTP 



11101 189 

10101 l -1 

01101 100 

00111000 

0C11 1000 
01101100 
10101 100 
11101190 
1 1 1B1B01 
10101 111 



00111Q0®- 



1 800000 1 

11111111 
0101 1O10 
00111100 



3 0000 100 
011 10100 

11111111 

10000-3 «1 

11111111 

0101 1010 
00111 100 



UK 



01*3: 

91** 
91*0 
91*9 



9193 

eie* 

6 186 



DPTO BIN 

DOTP BIN 

DOTO BIN 

DPTO BIN 

DOTO BIN 



DOTO 811 



9 138 DOTO 

5187 " " 

eiee 

9190 
Blft 1 

O 165 



00001110 

IN 00111100 
IN 01011B10 
IN 11111111 

tm laaeeeei 
liliiiii 
001011 ie 



DOTO BIN 
DATA. BIN 

DATA BIN 

ggTs m 



000 1 1 100 
001 101 10 
00110101 
00110111 



0187 


DPTO 


BIN 


10010110 
00011100 


8169 


DOTO 


1 IN 


9170 


OEM 






8171 


DOTO 


•2 IN 


00011100 


9173 


DOTR 


BXN 


10010110 


8173 


DOTR 


5 IN 


11110101 


817* 


DOTR 


BIN 

PIN 


100101 1 1 
001 10111 


0173 


DOTR 


8178 


DPTR 


8 IN 


00110101 


8177 


DOTO 


B IN 


00110110 


9178 


DOTO 


fj IN 


00011100 


51*« 


REM 






9181 




DIN 


011 11 1 10 


8193 


DfiTB 


s :n 
n IN 


1110011 1 

11000011 
1001100 1 


8193 


DRTO 


6 194 


DOTO 


PIN 


9193 


DPTO 


B IN 


10O1 10O1 


9195 


DOTR 


d :,-.■ 


1100001 1 


9137 


DOTO 


O IN 


11 100 11 1 


8199 


DOTO 


B IN 


01111 110 


5200 


DEM 






0201 


DOTP 


H IM 


01111110 


0302 


OPTP 


B IN 


0011 1100 


8303 


DRTR 


r. IN 


0111 1 HO 


6204 


DftTP 


BXN 


1110 113 


8165 


DOTO 


E. I : t 


1110011 1 


9308 


DOTR 


BXN 


01111 1 lO 


5207 


DflTil 


B IN 


001 1 1 100 


5209 


DOTR 


BXN 


1111110 


5510 


REM 






82 1 1 


DPTR 


BIN 


□0310000 


3212 


DOTO 


E IN 


01O00010 


5213 


t>RTR 


BXN 


10100100 


921* 


DOTO 


B XN 


00O0O00O 


581? 


DRTO 


BIN 


00100O10 


8215 


DOTO 


B IN 


0100100 1 


8217 


DOTO 


B r N 


01O1010O 


9210 


DRTO 


BXl 


OOOIOOIO 


9220 


PCM 






S221 


DOTO 


BIN 


O00000O0 


522S 




o rr 


00010O1O 


5323 


DRTH 


BIN 


1000000 


PJi4 


r-OTO 


3 i ' 


lt?O00011 


9223 


DRTO 


o rr 


OOOO lOOO 


0220 


DPTO 


t II 


O01O0OOO 


1117 


DOTP 


C. It 


O10O1O01 


5229 


DPT« 


1 II 


01O1 1 110 


8330 


REM 






923 1 


DOTR 


B CI 


0001 1000 


923a 


OOTR 


en 


001 1 1100 


9233 


DOTO 


" ir 


10111101 


533* 


DPTO 


i II 


O 101 lOlO 


8233 


DPTO 


Bir 


001O010O 


■■-■ IB 


DOTP 


3 rr 


O1O11O10 


9237 


C'ftTFl 


B 1 1 


locaoce l 


5239 


DOTR 


B CI 


10000001 


92*0 
OS* 1 


PCM 






DOTR 


B El 


i3O01 1O0O 


*iil 


L-.RT.'-, 


e t ■ 


vl 1.1 1 I 1 1 


52*3 


DPTP 


1 i' 


.Mill 100 


99** 


DPTO 


B I' 


O101 1O10 


92*5 


C PTO 


B II 


10 100 10 1 


02*1 


DOTR 


Bic 


010 11010 


52*7 


DPTR 


B 1 1 


1000OS01 


52*9 


DRTO 


r i i 


1 IMOliOl' 1 


923d 


PCM 






9231 


>DPTP 


81' 


000OOOO0 


ft232 


DOTR 


i if 


O001OQO0 


e253 


DPTP 


r. if 


cos iooo« 


023* 


DOTP 


3 1 1 


0001O000 


5253 


DOTO 


i Er 


0001000O 


9235 


DOTO 


r ii 


010101O0 




DOTP 


| n 


001 1 10OO 
0OO 10OOO 


■ ■ 


DOTR 


ill 


82B0 


REM 






saei 


DOTO 


BXN 


00O11O00 



825* DOTF 

8263 DOTP _ . 

8265 DPTR BIN 

0267 DOTO BIN 

6288 DPTP BIN 

627© REM 

8271 DPTP BIN 

65(72 DPTR &IN 

9273 DRTR BIN 

5274 DOTO BIN 



8273vDPTP BIN 

3276 DRTO BIN 

8277 DPTP BXN 

8278 DOTA BXN 
9SB0 REM 

9281 DPTO BIN 

9282 DPTP 8IN 
8263 DOTO BIN 
828* DRTO BIN 

eaes drto bin 

8298 DPTO BIN 

9287 DOTO BIN 

9298 DOTR BIN 

6230 REM 

5291 DPTR BIN 

0292 DRTO BIN 

8293 DOTR BXN 

929* DOTO BIN 

92»3 D«Ti*» BIN 

5298 DRTR IN 

5297 DOTP BIN 

9298 DRTP BIN 



O3S0 REM ....................... 

e331 REM • • 

83«a REM • PRESENTATION . 

0363 REM » • 

6307 REM ....................... 

8400 LET Z»m€f' LET *«»"A": LET 

4 10 CL5 PRINT OT 
FLASH 1. PRPER 2; ,- M 
O C" 
O*20 PRINT OT 7 , 10, 

9 8 *" 
8*30 PRINT OT 12,7; 
B P N OUI I" 
64 4 PRINT AT 17 , 5, 

*FWTQT ION" 

PAUSE 



2, PPPCR 8; "LBS COMMONDE3'- 

eaia print » jro,n - 

INK 3, ■' "•• " 

9020 PRINT ' ' '■ * «4UCht ■- 

INK SJ" ' 1* " 

9030 PRINT ■ ' ■' tn MUt t 

K 3; " '3 ' •' 

90*0 PRINT ' ' '■ tn bs! 1 

3 „ - ... 
9OS0 PRINT 

S06* PRINT 
Mine * 
907O >PRINT 

TOUCHE I I ' ■■ 
9900 PAPER 
RT 10,7; F 



• «UIM' 



i ■■, INK 

u e*»#« i- 
■ftt »«r 



PPPUVEZ SUB UNE 
SE 1 i PAUSE 
K * CLS PRINT 

1. -'OEMARREZ LE T 




14 INK 2 OOPDEP : 
L5 LET Mi-1000 

30 LET K.|.^ p ^ L 

ET LCU-O 

40 INPUT "DITFICULTE I 




INK 4, 
C N V R 



60 FOR In 1 TO 'AB3 

70 LET A- INT (RND»30t 
T IPND.SBi 
ee FRirjT inn; 3, f«rt» 



LET P« 
FOR 



F-0 TO 3 LET Ol-INT 'A 

LET BlilriT iRNOiiai .7 
AND Dl-X THEN LET B1=B1 



B490 FOR 

O300 ron 

5310 FOR 

0020 PRXN 



.2 TO 17 
■O TO 30 
■ TO 1 



1*0 IF Al> 



... LET Ol.Rl.l 
1*3 PRINT INK *;AT 
EXT F 
150 LET LCA'-LCU*! 



Bl-lO OF 



5323 PRINT RT .1 , 
3 5 3 BEEP 



O3.10-SIN li,30»PJI 
"A" THEN LET »«-■'*" 



210 RESTORE 30 
IF F>LE'J TMBN 



FOR F-a TO 12 



OO TO 300 



PR INT INK IN 



330 LET T9- 



MEN LET I»- ^*' 

LET *»■"*■' L 



5B3S 
9360 

0590 wen «»»• 

6692 REM • 

8394 REM * 

0395 REM • 

0597 REM i * • • 

36QO PRINT PT 



,3,0, •■•- ,0 , 1 ■ "ft" ,* ,3. ' A A" , 



NE -t 

q.e>,"C 



PAPER' 2. 
use 1 



RECLES DU JEU 
'l0,5. FLASH 1, 



37 



ue 



"BU3C 
3950 ir INISCT ri < i "O " 
"O" THEN GO TO 9900 

6630 OOROCR^l CLS 

O880 PRINT INK 3, 
d«s d un robot _' " b I 



*00 DIM Z(2) PRINT INK 3,RT 1, 
7;K*. '• " 

■ 00 LET 3-3 ♦ . 1 LET C- INT iDflD. 
- -51 I 

IF O-l AND O'a>-0 THEN OO 5 

30O0 

S_JF_0_I1)_»1_TMEN LET R-l INK 

LET R«C INK 

O O 

AND 



6i OO SUB 3100 

330 ir - ■ 



oo sub sioe 

660 IF IM ( 1) -V AND N 1 1) .X Al 
111 "11 OP l«(tl "V OND NIBI m* 
C(ai *1> THEN GO TO 4000 
350 PRINT AT 11,1, INT S 
$73 RCM DEPLACCMENT 5 
SOO IF INKEV • «■' " THEN OO TO 



urn 



J ( p O 



V«2 



OUI 



S93 IF 
BOB 
B»7 IF 



IMKCV«*"3" 



i i I - 



a t > 1* 



3670 print no, " flppye: -■ 

TOU'-ME 1 " PAUSE 1 PAUSE 

O6O0 .PRINT INK 7, ' ' L«» 

!. i..p h* t n * pluu«nt <UI 

i» qu« • • i l* I8IM pogll 



6*1 
B 1 

TMEN OO 3U6 9 

AND X>B TMEN 
AND X<2S TMEN 



VEX SUR UNE 
AUSE CLS 



QO 3U8 7OO0 

BBS IF INKEV 

OO SUB 7190 

6 30 IF INKEV ■■"•»•• AND V > 1 TMCN 
OO 5U8 720O 

S*0 IF INHEV|."8" AND V<aC TrlC 
SUB 7300 
630 ir IN 832 78-23* THEN PAUSE 

70O IF ZZ-1 THEN PRINT AT V , X, 
■; LET ZZ-0 OO TO 711 
710 PAINT AT V.X.O* LET ZZ"1 

80O oo to see 

gOO IF TT-l TMEN LET L-ATTR 'V 



8 8 9 FAINT 

dm nn/tiu» 
vout ditpe 

m '.htqul Ti'J 



BINT HI," APPUvez 3UF UNE 
Fi ' PAUSe 1 PAUSE PAP 
BORDER 4 : INK O CLS 



90S 
X»l> 
«1« 

1 ,X) 

eae 

ON 
9*0 



IF TT-2 THet 



IF TT»* 



LeT L-ATTR 
UBT L-OTTA 
LET L«ATTR 



IP L < > 13 AND L ' 



8500 



KB 



»D«P 



eeoi 

6602 

6B03 hc.it * 

880* AEM .- ' C 

B806 REM • 

5807 REM . . . . ■ 

9000 PRINT AT 



E NTS* 



LET Z6-"0" 

ooe ir 



LET I»0; 



•« 



ASM 1, INK 



CL»* LET PA«0 LET 3 
5flO 00 TQ TT»100*9OO 
1000 IF ATTR IV.X-ai-1 
(V,X-a)-* OR ATTR IV, v 
LET F--1 OO TO a«»* 



CL-6: LET PA 
tit CT 



Suite page 12 



REGATE OLYMPIQUE 



Voila un programme pour ceux qui veulent regater 
dans leur saton, ou bien s'initier aux principes de la 
voile. Tous les commentaires utiles sont dans les REM 
des premieres lignes. Les CALL CHAR sont longs a 
taper, mais le graphisme est indispensable pour une 
bonne comprehension du jeu. 

Vous pouvez jouer seul, au debut, afin de vous initier 
aux deplacements. suivant la direction du vent (le jeu 
est prevu pour deux joueurs). 

Philippe PAYEN 



10 RBI LE SUT DU Jtu EST DE FAIRS DEUX FQ1S LE TOUR DCS TROIS BOUEES. 

20 fit" LES VOILIERS ONT OIFFERENTES VlTESSES PAR RAPPORT A LA DIRECTION DU VENT. 

30 REM LA DIRECTION DU vENT.OU! VARIE.EST INDIOUEE PAR LA FLECHE PLACEE EN HAUT 

DE L'ECRAN. 

•O REM SI UN VOILIER RENCONTRE LA FLECHE MOBILE, OUI REPftESENTE LA RISEE.SA VITES 

SE EST D0U8LEE. 

50 REM CHAOUE BOUEE FRANCHIE EST VISUAL1SEE EN HAUT A GAUCHE DE L ECRAN. 

AO REH LA DUREE DU JEU EST SYMBOLISEE PAR LE SOLEIL. 

70 REM CE JEU EST PREVU POUR FONCTIONNER AVEC LES JOYSTICKS, IL FAUT DONC METTRE 

EN POSITION MINUSCULE. 
SO REM LA REACTION DES VOILIERS EST RELATIVEMENT LENTE, CECI EST DU A LA MANOEU 
VRE DES VOILES- 

90 RE" DEFINITION DES CAPACTERES. 
lOO CALL CLEAR 

110 CALL CHAR (32. "07IF3F7F7FFFFFFFFFFFFF7F7F3F 1FOFE0FSFCFEFEFFFFFFFFFFFFFEFEFCF8 
E0-> 

120 CALL CLEAR 
130 CALL C0L0R(2.6,6! 
140 CALL SCREENC2) 
ISO CALL C0LORI8, 1A.3) 
160 CALL CCLQRM.3.5) 
170 CALL C0L0R<3.16,; 



> CALL CHAR < I 



O1O3aiC0£O703OlO000< >H :. X X» XXXM XM48CCCEC7OCFCFC0 



190 CALL COLOR (S. 16.3) 

200 CALL COL0R<6, 16.3) 

210 CALL COLOR(7,l6,3) 

220 CALL CDLOR(4, ia, 1A) 

230 CALL CHAR<I24,"00O0O0O00O0O203133::73E3C3F 



1C3B70EOCOB000000080COO 



3302C 



CALL CHARU20, "03O3O3O3O303O3O30303331B0F07O3O1B0B0BOB0B0BOB0B080BO9BBOE0C0B 

CALL CHAR(lO4,-a3O7OElElE3E3E3E3£21FF3F0F030OO0B0COEOF0F8FCFEFFFBC0FFFEFCF8F 

CALL CHAR<lCB,"OOO307OFIF3F7F677a3E3FlF!F0FGF0343CCCCCEC£CFEFFF7E7EEEECECECE 

190 LPE-1 i: PE-1 L! 0-1A :s R-120 : : FO-96 :: LF-96 :: CALL CHARI 100, "0103070FI 

F3F1FBFE7FB7F3F1F1F1F0CC0E0797C7E3F3F7F7FFF3FBEE0FEFFO0" ) 

300 E-30 i! LE-30 M CALL CHAR (96, "03O71E3E7EFCFCFEFEFFFC71077FFF0OS0C0E0FOFBFCF 

8F1E7DFFEFCFPF9F33'J"> : : CALL HAGNIFY(3! 

310 DISPLAV ATO.SH "PHILIPPE PAYEN 

PRE SEN TE- 

320 REM AFFECTATION DES VITESSES 

33© DIM L(4©):> DIM D(40> 

340 FOR 1-1 TO 40 

330 READ L ( I > . < I > : : NEXT I 

360 DATA -3, 0,-2, -2, 0,0, 2, -2. 3, 0,4", 4, 0,3, -4, 4, -2, 0,0, 0.0. -2, 3, -3, 4, 0,3,3,0,4, -3, 



370 DATA 0,0.-2,-2,0,-3.4,- 



,3,0, < 



4,0,3,-2,2,-2,0.-3,-3.0,- 



>,3,3,( 



2,0 



380 DATA 0.-4.-4,0,-3,4,-4,3.0,2,2,0,0,-2,2 

390 DISPLAY AT (1 3, B) : -REGATE OLYMPIOUE" 

400 DIM LL(40C: DIM LD(40> 

4.10 FOR 1-1 TO 40 

420 READ LL(I) ,LS(I)i: NEXT I 

430 DATA -3.0,-2,-2.0,0,2,-2.3,0.4,4.0,3.-4.' 



-4,3,0,4,. 



,0,3,-2,2, 
-2.2 



'2,0,- 



', -2, 3, -3, 4, 0,3, 3, 0,4, -3. 
I, 0,-4, 3, -3, 4, "0,3,3, 0,2,0 



440 DATA 0,0,-2.-2, 
,0,-3 

430 DATA 0, -4, -4, 0,-3, 4, -4, 3, 0,2, 2, 0,C 
460 DIM 015)1 : DIM F(3) 
470 FOR 1-1 TO 3 

4BO READ G(II,FtI)i! NEXT I 

490 DATA 0,13,13,13,15.0.15,-13,0,-13 

300 CALL CHAR < 132. "Ol 03070F 1F3F7FFF1F03FF7F3F IF IF ICC0E0707B787C7C7C7CB4FFFCF0F0C 



310 CALL CHAA»I36. -1017;73737777F7FFFFFF77777373311OOO0©0EOFOFB7ClCFCFBF8EOE0eoa 

320 CALL CLEAR 

330 CALL COLORia.r.n 

340 DISPLAr ATii.i): ••• „• ,„ ,„,„„.,. ,„,., 



> DISPLAV AT<7. 16) :"2" 

> DISPLAY AT H9, 3): "1 

> DISPLAY AT (4, Hi" BOUEE 

) CALL 5FPITE(«1.96. 16. I60.99H i I 

> CALL SFRITE^«4,96,2j 155.104) 
) CALL SPRITEnr.ft. 13'. 130,33> 

) CALL SPRITE! #6. 32. 11,1,11 

• CALL SPRITE (US, 112, IS, IO, 126.1 

' CALL JOYSTd.X.Yl! J CALL JOYSTC 



A40 


IF 


X-4 AND Y-0 THEN M-7 :: FO-132 ■ ■ GOTO 720 




63'J 


IF 


X«4 AND Y-4 THEN M-B :j F0"132 II GOTO 720 




660 


IF 


X«0 AND Y«4 THEN M-I j: F0-13A :i GOTO 720 




670 


IF 


X— 4 AND Y'4 THEN W-2 :; FO-104 :i GOTO 720 




6BO 


IF 


1—4 AND Y-O THEN M-3 :: FO-104 :: GOTO 720 




690 


IF 


X— 4 AND Y»-4 THEN M-4 is F0=96 ■ ■ GOTO 720 




7(XJ 


IF 


X-0 AND Y = -4 THEN n-3 :: FO-10B :: GOTO 720 






It- 


X-4 AND /— 4 THEN M=6 :: FO-lOO 




■-'-' 


IF 


LX-4 AND LY-0 THEN LH-7 :1 LF-132 M GOTO 800 






IF 


LX-4 AND LY-4 THEN LH-8 :: LF-132 u GOTO SOO 




/40 


IF 


LX-O AND LY-4 THEN LM«1 f: LF-136 :: 60TD SOO 




/SO 


IF 


L« = -4 AND LY-4 THEN LM-2 :: LF-104 i: GOTO BOO 




7AO 


IP 


LX = ~4 AND LY-O THEN LH-3 :: LF-104 :: GOTO BOO 


f 1 \ \ 


'70 


IF 


LX--4 AND LY— 4 THEN LM-4 :: LF-96 i: GOTO 900 


,/|l * 




IP 


LX-O AND LY— 4 THEN LM-3 :: LF-108 :: GOTO BOO 








LX-4 AND LY — 4 THEN Lrt-6 :: LF-100 


/ l\ ' 1 '■ 




I* 


NT(20»RND»*I t: IF 1-2 THEN 1380 




BIO 


IP 


Z-3 THEN 1400 




S20 


J-M+O :: LJ-Lrl-0 




B30 


IF 


X-0 AND Y-0 THEN J-0 » 




B40 


IF 


LX"0 AND LY»0 THEN LJ-O ' 






CALL CCINC<«I,»2,30,L0>. 




B60 


CALL COINC(#2,»4,30,LG> 




a/o 




LG'-I THEN LL(LJ)-LL(LJ)-1.6 :: LD(LJ > -LD(L J ) • I . 6 




BbO 


IF 


L0--1 THEN L(J)-L(J)*1.6 :: D f J )-D( J) • I .6 




B90 


CAl 


L PATTERN (•l.FO): : CALL MOTION(«l , L < 3) . D I J) ) 




900 


CALL PATTERN<»4,LF>: : CALL MOTION !**, LL (LJ i, LD(LJ) > 




910 


CALL PATTERN(42,R> :: CALL MOTION (»Z.G(0/B* 1 ) .F (0/8*1 ) ) 




920 


CALL PATTERN<»3,R) 




V30 


S-S*0.023- 





/ 



940 CALL M0TI0N(«6,O.S) 

950 IF S-l THEN S*0 

960 CALL POSITI0N(»6.f1.N) 

970 IF N>250 THEN HBO 

980 CALL PaSITION(#l,C,V> 

990 CALL P0SITI0N(«4,LC,LV> 

1000 ON PE GOTO I04O, 1060, IOBO, I lOO. 1 130 

1010 ON LPE GOTO 1230,1270,1290,1310,1360 

1020 IF PA-2 OR LPA-2 THEN 1190 

1030 GOTO 630 

1040 IF CM30 AND V<40 THEN PE-2 II DISPLAY AT (30, E) BEEP: " >" 

1050 GOTO 1010 

1060 IF C<50 AND V>130 AND V<140 THEN PE-3 :i DISPLAY AT(30.E 

1070 GOTO 1010 

1080 IF 0130 AND V>220 THEN PE-4 :: DISPLAY AT (30,E*2> BEEPi - >" 

1090 GOTO 1010 

llOO IF V>120 AND V<130 THEN PE-4 :: E-33 ii PA-PAM n GOTO 1 1 10 ELSE I 

1110 OISPLAY AT(17,3)f 4 16 I 



Tl-99 4/A 



>BEEP: ' 



ARR1VEE 



1120 DISPLAV AT(22,3):- I 

1130 DISPLAY ATI22, 16) i-I- 

1140 DISPLAY ATI7,I6)J-3- 

1150 PE-1 

1160 GOTO 630 

1170 IF LC<43 AND LV>130 AND LV<140 THEN LPE-3 :: 

1180 OISPLAY AT(]4,I0t:- LE JOUR VIENT DE TOMBER 

1190 CALL MOTION(41,0,0> 

1200 CALL M0TIDN(»2,0,0> 

1210 CALL MQTI0N(46.0,0) 

1220 CALL MOTION(t4.0.0) 

1230 DISPLAY AT ( 18, 15) SI IE (41 I "FIN" 

1240 FOR 1-1 TO 10OO :: NEXT I :: END 

1250 IF LC/130 AND LV-T40 THEN LPE-2 It OISPLAY AT (31 .LE) BEEP SI ZE (8) i "Y" 

1260 GOTO 1020 

1270 IF LC<30 AND LV>130 AND LV<140 THEN LPE-3 it DISPLAY AT (3 1 ,LE» 1 1 BEEP S1ZE<8 

1 280 GOTO 1020 

1290 IF L0130 AND LV>220 THEN LPE-4 n DISPLAY AT(31,LE*2)E 

1300 GOTO 1020 

1310 IF LVM20 AND LV<130 THEN LPE-4 n LE-33 n LPA-LPA* I ! 

1320 DISPLAY AT(17,3>l" 4 I 6 

I I- 

1330 DISPLAY AT122.5)!" I 

1340 DISPLAY ATI22, 161 ] "I" 

1330 DISPLAY AT (7, 16) ! -Z~ 

1360 LPE- I 

1370 GOTO 630 

1380 R-R*4 l: 0-O*B ii IF R-132 THEN R-128 II 0-32 

1390 GOTO 820 

1400 R-R-4 ti 0-0-8 ii IF R-tOB THEN R-112 ii 0-0 

1410 GOTO B20 



BASIC 
ETENDU 



EP SIZE(BH"Y" 
GOTD 1320 ELSE 102 



APPRENTISSAGE DES LANGUES 



Ce programme concerne I'apprentissage des iangues 
sur TRS 80 avec disquette. Le mode d'emploi est sous 
forme d'un menu comprenant cinq commandos. 

Eric BERTREN. 

1 : Cetle commande permet rocriture des donnees sur disque pour 
le professeur, c'est a dire la question et la reportse. 
2: Grace a colle-ci. I'eleve peut tester ses connaissances. L'ordina- 
teur pose une question a laauelle il (aut qu'il reponde. Si II y a er- 
reur, la bonne reponse est affichee a I'ecran. A la fin du test (fin de 
ftehier ou commande S), I'ordlnateur atfiche les resultats. 
3: cette commande est ooligaloire avant d'arrater I'ordlnateur. Elle 
forme le fichier et prevlent I'utillsateur lorsque c'est termlne. 
4: La correction du fichier est ires utile en cas d'erreur de frappe. 
Taper le numero de I'article et taper la rubrique question ou re- 
ponse. 

5: Avec cette commande. 1'ordinafeur se posltlonne a la fin du fichier 
pour conrjnuer a enregistrer. 

Lorsque "Numero d'enreglstrement?" s'arflche. II faut repondre le nu- 
mero de [article a creer. SI Ton entre - 1 . la llste du fichier s'inscrit 
a I'ecran. SI ! on entre - 2. on retourne au menu. 



30 - CONFIGURATION I TRS BB MOOELE I 

Efl ■ IE fl 4BK DE RAM. 

79 " OIBOUETTE. 

ee • 

se cls 

IN CLEAR20M 

lie S«-STR!N0«<C3, !6B> 

12B OPEN-R-.1..-AN0/TXT- 



INE1NPUT-ENTDEZ I 



130 FIELD1.30OSO*. 3BASR» 
14« CLSIPRINTiPR[NTS«lPRINT 

15« PRINTTAB(23)"MENU*IPRINTTQB(231" "t PRINT 

lCe PRIMTTOB'20)"1 - ECRITURE DCS DONNEES" 

17B PSINTrAB(2e> , -2 - LECTURE / TEST" 

IB0 PRINTTAB'2B)"3 - CLOTURE DU FICHIER' 

19fl PRINTTOBrravii - CORRECTION DU FICHIER" 

28B P«INTTAB(28)"3 - POSITION ENREOISTREMENT SUIVANT"il 

218 PRINTTAB(13e)-V0TRE CHJIX ■»" i PRIHTiPRINTB* 

220 G0SUB93a i ONVAL ( A» ) 00X0268. 338. 870. 328. 690 1 GOTO220 

230 " 

2*0 ' •• ENREOISTREHENT DEB DONNEES ** 

230 ' 

;&a CL6IGOSUB730 

270 CLSIPRINTB33. -ENREOI STREMENT »«jMERO I 

a QUESTION ---) "iA»i IFLENiA*)) J0THCN270 

280 LINEI«PUT"ENTHEZ LA REPONSE ) *|B*iIFl£N(1 

2S8 LSET0«-A*ILSETR*-B«IPUT1.N 

300 PRINTiPR[NTTA8'20)"G - ENCORE" 

310 OOBUBB30I rFO«-"E-THENN-N*HCL9iGOTO270ELSE310 

320 ' 

330 ' •* LECTURE DU FICHIER I COMPTE LES REP0N8ES 

340 ' 



370 0ET1.N 

360 PRINTIPRlNTIPRlNTlPRINTIAB'jai-OUESTION I -|0« 

3S0 PRINTrAB'20J I ILINEINPUT-REPONSE > "1B4IPRINT 

J.00 IFLF.N(6») (TerHENB»-B«»STRINO«(30-LEMiB«).32) 

019 [FR»-B«THErJPRIHTT'AB. JO) -REPONSE CORRECTE ' - I B-B*tELSEPRINT1 

B(20)-IL FALLOIT IROUVER 1 "|R*IM-M.l 

420 PRINT94iPRlNTrPR[HTToei20)-E - ENCOftE" tPRINTTOB(20) "S - STC 

/ AFFICMAOE DE8 SCORES" 
4 30 A4-INKEY41IFA»-"E-THENCL8iNexrNeLSEIFA4-"S"TMEN4O«eLSE'.30 
440 CLSiPRINTS* 

430 PRINTTABdSl'NOMBRE DE BONNES REP0N8ES I "IB 

460 PRINTTOBMSr'NOMBRE DE MAUVAISES REPONSCS i "1H 
470 PRlNTB«iPflINrTA8(20)"OPPUYEZ SUR ( SHIFT >" 
480 OOSUB830>DOTO4B0 
490 • 



TRS 80 



ITTAB(?B)-OUESTION i 



310 ' 

520 CLS1GOSUB730 

330 GET I.N 

340 CLSlPRINTlPRINTlPRINTH 

330 PRINTTABt20)-REPONSE i '1R* 

560 PRINTS«1PRINT 

370 PRINTTO8(20)"1 - QUESTION" i PR I NT TAB C 20) "t 

380 PftINTTA8<28>"MENU I APPUYEZ SUR < SHIFT I" 

390 OOSUB830iONVAL'A*>GOTOGIB.630 

F,00 GOT 0390 

E10 CLSIPRINTTAB(20>- , CORRECTION OUESTION- 

628 PRIWTTnB(28)- -I PRINT 

S30 PRIMT-ANCIENNE QUESTION I " tO* 

S48 LINEINPUT-NOUVELLE QUESTION I • lB«>LBETO*-A»I PUTI. 



630 CLSIPR[«TTAI-l?(li-'CORRECTION REPONSE" 

660 PRrNTTAB(28)" 'l PRINT 

670 PRINT-ONCIENNE REPONSE > 'lH 

680 LINEINPUT-NOUVELLE REPONSE i "1 B»iLSETR*-B«iPUT1 . h 

690 N-LOF(l)*] IDOTO270 



• » NUMERO DE 1 



ilSTREMr.NT • 



720 ' 

730 PRINT- -1 ' AFF1CHACE DU f ICHIER" t PRINT" -2 ' RE1 

"UNPUT-NUMCRO DE L' ENREDIBTREMENT "IN 

740 I FN--2TMEN 1 40ELSC I FN-- 1 TtCNTEBCLSC I FN (-0THEN730 

730 RETURN 

760 CLS 

770 F0BI-1TOLOFM ) 

7B0 GET I. II PR! NTT OB' 1010*1 R«t ■** I "I " !CHR*< 1 3HS4 

798 NE»TI IDO1O?"0 



810 ' 



TEST DU CLAVIEH 



(GHir 



■ HETOUH OU MENU • 



■■ THEN! FPEEM(l«*6Ai-lTHENl<.0CLS18J0f LSI RSTUWI 



■ CORRECTION DU FICHIER i 



810 »»-INKEY»> 1FA»-- 

840 - 

G30 ■ -* FEHMCTURE DU FICHIER OBLIGATOIRE O LA FII 

B60 ' 

870 CLOSEiCLS 

880 »•--< ETEIONEZ LfJ OISOUE I 

R1NT8465. 8TR[N0»ILEN(A4).32)I I 



DEUX SUPER-CONCOURS PERMANENTS 

1 0000 francs de prix au MEILLEUR LOGICIEL du MOIS et un VOYAGE EN CALiFORNIE 

au meilleur logiciel du TRIMESTRE. 



Un concours de plus ! 
Rten de Wen original dans cette 
formula, pourtant noui es- 
sayons de felre quel que chose 
da different : nous organisons 
un concours permanent tous 
les mois et tous les trimeatres ! 
Et avec des pri x dignes des pro- 
gramme* que vous allez nous 
envoyer! 

De plus, ce seront les lecteurs 
eux*memes qui voteront pour 
leurs programmes preteres sur 
la grille recapitulative men- 
suelle. 

Pas de Jury, pas de decision ar- 
bitrage, HEBOOGICIEL n'lnter- 
venant que dans le choix des 
programmes qui devront etre 
ORIGINAUX et FRANCAIS. Si 
votre programme n'est pas tout 
a fait au point, un de nos spe- 
cialistes vous dira comment 
I'ameliorer pour pouvoir nous le 
proposer a nouveau. 



Pour participer, il vous suffit de 
nous envoyer vos programmes 
accompagnes du bon de parti- 
cipation ainsi que toutes les ex- 
plications necessatres a i'utili- 
sation de ce programme. 
Bonne chance! 



Reglement : 

ART 1 ; HEBDOGICIEL organise 
de (agon mensuelle et trimes- 
trielle un concours dote de prix 
recompensant le meilleur logi- 
ciel du mois et du trimestre. 
ART. 2 : Ce concours est ouvert a 
tout auteur de logiciel quelque 
soit le materiel sur lequel il est 
realise. L'envoi d'un logiciel en 
K 7 ou disquette accompagne 
dun bon de participation de- 
coupe dans HEBDOGICIEL ou 
envoye gratuitement sur de- 



mande pat la redaction de notre 
journal constitue I'acte de can- 
didature 

ART 3. La redaction d'HEBDO- 
G1C1EL se reserve le droit de 
selectionner sur la base de la 
qualite et de longinalite les logi- 
ciels qui sont publics dans le 
journal 

ART. 4 : Ce sont les lecteurs qui. 
par leur vote, determinent les 
meilleurs logiciels mensuel et 
trimestriel 

ART 5 Le prix alloue pour ie 
concours mensuel sera remisau 
plus lard un mois apres la clo- 
ture du concours mensuel. 
ART. 6: Le prix alloue pour le 
concours trimestriel sera remis 
auplustardun mois apres la clo- 
ture du concours trimestriel. 
ART. 7: Le present reglement a 
ete depose chez Maitre Jauna- 
!re. 1 . rue des Halles 75001 Pans. 
ART. 8 ; HEBDOGICIEL se reser- 



ve le droit d'interrompre a tout 
moment le present concours en 
en avisant les lecteurs un mois 
avant. 

ART. 9 : La participation au con- 
cours entraine l'acceptation par 
les concurrents du present re- 
glement 

HEBDOGICIEL: 27. rue du Gal 

FOY- 75008 PARIS 



Sera declare gagnant le pro- 
gramme qui aura obtenu le plus 
fort pourcentage de vote par 
rapport a la totalite des pro- 
grammes recus pour un meme 
ordinateur. 

Ainsi, pas de favoritisme pour 
les ordinateurs plus puissants 
ou tres diffuses. 



BON DE PARTICIPATION 



Nom : 

Pre no m : 

Age : Profession : 

Adresse : 

N° telephone : 

Nom du programme ; 

Nom du materiel utilise : 

declare etre l 'auteur de ce programme qui n'est m une imitation ni une 
copie d'un programme existant. Ce programme reste ma propnete et 
I'aulorise HEBDOGICIEL a le pubher La remuneration pour les pages 
publiees sera de 1000 francs par page (un programme n'occupanl pas 
une page entiere sera remunere au prorata de la surface occupee) 

Signature obhgatoire : 

(signature des parents pour les mineurs). 

Le programme doit etre expedte sur support magnetique (cassette ou 
disquette) accompagne dun descn p tif detaiile du materiel utilise, 
d'une notice d'utilisation du prog ramme Les supports des program 
mes publies sont conserves , n'oubliez done pas d'en taire une copie 



RECOMMANDATIONS AUX LEC- 
TEURS QUI SOUHAiTENT FAIRE 
PUBUER UN PROGRAMME : 

• Envoyez vos supports, mode 
d'empioi, listings et bon de parti- 
cipation dans une meme enve- 
toppe. 

Vous pouvez nous envoyer plu- 
sieurs programmes sur un meme 
support en I'indiquant sur voire 
Bon de Participation. 

• N'oubliez pas et ceci est tres 
Important d'insenre sur vos sup- 
ports votre nom, le nom du pro- 
gramme et le materiel utilise. 
Notez dans les premieres lignes 
de voire programme, sous forme 
de REM, votre nom, le nom du pro- 
gramme et le materiel auquel il est 



destine. Nous pourrons ainsi re- 
perer facilement les listings, une 
fois sortis de I'trnprimante. 

• Dupliquez plusieurs fois sur la 
cassette et a des niveaux d'enre- 
gistrement differents votre pro- 
gramme. Nous aurons plus de 
chance d'arriver a le charger si les 
magnetophones ne sont pas tout 
a fait compatibles. 

• En ce qui concerne les bons de 
participation, mettez votre adres- 
se com p lete et votre numero de 
telephone (si vous en avez un). 

• Pour tout envoi tel que "petites 
annances". "abonnement" et 
"programmes" specifiez sur vos 
enveloppes I'objet de votre cour- 
ier. 



Ne nous envoyez plus d'envelop- 
pes timbrees, mettez simptement 
les timbres joints a votre envoi. 

• Expliquez les particularites de 
votre ordinateur et le moyen 
d'adapter votre programme a 
d'autres ordinateurs. 

• Vu le nombre important de pro- 
grammes similaires que nous re- 
cevons, evltez de nous envoyez 
les jeux sutvants : BIORYTHMES. 
MASTERMIND, RENDU. TOUR DE 
HANOI. CALENDRIER. BATAILLE 
NAVALE, POKER. JACKPOT 
BOWLING. BLACK JACK, LABY- 
RINTHE, MEMORY SIMON, 421. 
OTHELLO. SOLITAIRE, LOTO. 



LA REGLE A CALCUL RE- 
COMPENSE LES MEILLEURS 
LOGICIELS EN OFFRANT A 
CHACUN DES PREMIERS 
DANS LEUR CATEGORIE UN 
OUVRAGE A CHOIS1R DANS 
SON RAYON LIBRAIRIE (EDI- 
TEURS : BORDAS, DUNOD, 
EYROLLES, MASSON, NA- 
THAN, PSI, SHIFT, SYBEX). 



SOUIRELLE RECOMPENSE LE 
MEILLEUR LOGICIEL DU MOIS 
PAR 2 CASSETTES A CHOISIR 
DANS SA LOGITHEOUE. 



Les editions du CAGIRE offrent 
au meilleur logiciel du mois sur 
HP 41, leur li vre "au tour de la bou- 
clo" de Janlck TAILLANDIER. 



Suite de la page 6 
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IF R-3 THEN S-S+30 «M0 

IF R»6 THEN S-S*19 IMP 

SS-STP»<S> 

3PS-STR* SP > 

IF3'1 THEN 9799 

Z»- "SCORE- " 

CUPSET100.0.0 

FORI-I TO LEW.Z*) 

CHRP RSC'MIDS <ZS,I,1>>,9,1 

cumov 7.9.9 

NEXT I 

CUPSET 142,9,9 

FOP 1-2 TO LEN<SP») 

CHRP P3CmC'S''gPe, 1,I)),9<9 

CUPHOV 7.9,9 

NEXT I 

CURSET 142.9.9 

FOP 1-2 TO LEN<Se> 

CHRP RSCMIOSf St,I.n>.9,l 

CURHEN 7.9,9 

NEXT I 

PIHC WPIT199 

PLAY0J 0.0/0 

MUSIC 3,4,11.SH'PLRV PL. 01. 4, 299 



9519 
9312 
9315 



9619 
9620 
9649 
9644 
9643 
9646 
9647 
9648 
9659 
9669 
9679 
?633 
9699 
9691 
9692 



9693 3P-3 

9799 PETIJPH 

9999 PErtt»M******J 

19999 PEM NOUVELLE PP.RTIE 

19991 PEM 



tx**tx* 



19993 POKE49040. 13 P0KE43941 .9 

19919 PLRY 3,9.9.9 

10911 MU3IC3,2.19,SN'PLfiV7,0.4,293 

19933 GET RP» 

19979 IFRP«-"0"THEH PLPr9.9,0.0 COTOI 

13980 IFPPS="N"THENTE;'.T PAPER9 INK2C 
LS-PL«Y9.9,0.9'EHO 

10999 C0T01 0933 

19199 PPIHT'PRINT"Qu»l **t 1* niveau 
d« difficult*. (1»9> 

19191 GET NDS' IFN0»<"1" 0RNDS>"9"THEH 
19191 

10102 ND-vRI_a<Dt)'G0T02l 

19499 REMt»»»»**»t#X»l*»**»»*tt»tt»»* 

intuitu 

10300 PEM NIVEAU DE DIFFICULTE ~ 

19591 REM 



19310 PAPEP2 i MM 

19512 PRINTCMRK4) 

19313 PRINTCHP»C27>;CMR«82)yCHP»'27> 
t"J PILOTE DE CHflSSE" 

10330 PP1HTCHRK4)) CHR*X2?>J "T" ' 



PRINTCHRS<27 >; "II" PPIHTCHPf: 27)i "Q" 
10340 PRINT'PRINT" BUT OU 

JEU "PRINT PRINT 

10541 PRINT" M«n*r a bi*n UTM Mas 

ion Mrietww" 

10342 PPIMT"d» r*conr)*ln*ri<:»,d'ur.* d 
<jre» liMttee" 

10343 PPINT' , 1^*^■"'PRINT'PPINT , • - L* 
Pefte d'y-n aPPsreit." 

19344 PRINT" - L'tPUlS«W*nt 6* votr* 

c*rb-j.r*nt." 

10545 PRINT" - TroU tin rat**." PP 
INT PP INT 

19346 PPINT-SCORE' " 

19339 PRINT" II tat «t. fonction 

du iiiwtw d*" 



10332 PPINT'Toi* 1» Pr«nl*r Point acl 
uls." 

19334 PRINT'PRINT'PRINT"Pwr eoTrtlnU* 
r,*PPuv*z *ij.r un* tOUCh*" 

10336 GET RS'CLS 

10360 CLS' PRINT 

10364 PRINT" STRUCTURE DU J 

EU "'PRINT. PRINT 

10563 PRINT" Un* P»t<-ouill« tftt const 
ituee P*r*-"!PPINT 

10366 PRINT" - Un Pr»«t«r tPPtrtiX c 
hir<)* d» 1*" 

19367 PRINT"r-i;onn»l»sariC*.rPi"iori bli 
nc five )" 

10568 PRIMT" - Un WtTt . a«sur»nt «a 

Protection"- PRINT" le suit « P«tl d* di 
sttnet" 

10369 PRINT"(.C'«t l'*PP»r«il fit VOU 
5 Pit<5t*Z. )" 

10379 PRINT" - Un avion d* r*vit«ill 
«t"#nt *n vol" 

19371 PPINT"P-rw-tt»"-it d* Pr-olOT.9*r 1 
a doi-*« d*s " PRINT"mii».ioTu.<avion no 
Ir. )" 

19572 PRIMT-PPINT" 

".PRINT 

10373 PP1NT" En P*rm«n9nc* ■'■H'.<f P*n 
dint «otre" 

10374 PPIHT"r*vit#illen#nt. > votrt CO 
*1')lPi*r *st" 

19375 PRINT"m*nac* Par l'soVers«lre.< 
SVlOD btanc ctl9not».ftt '. 

19376 PRINT. PRINT. PRINT PPINT"Pour co 
nttwtr »PPu»»z *'jr »itit tciche. " GETPS 
■ CL3 

19377 PRINT. PRINT" CONDITION 
S DE TIP "PRINT. PRINT 

10579 PRINT" PPP O'JS MEME ■"■PRINT" 
- flm»n«r t'CVlOTI ad»*r»« dant ','Otr*" 
10379 PRINT"coltiM»t»'jr,<crol/ blanch 
* ) ■ l'#ld»" 

10330 PRINT"d*e touches f t*ch««s." -PR 
INT" - D*cl*riCh?r t» tlr *n KPPUV«nt 

10331 PPINT"la barr* d'*lPac«w«nt. 
19392 PRINTPRINT" PRR VOTRE COEOUIP 

IER" 

10383 PRINT" - HUt0A*.tl4ut**nt lonl 
•}* 1 '»nn*pil " 

10386 PPIHT"t*t dtVSTrt lulrtPlttl P«tl 
t) et d*n» " 

10387 PRINT"»a 1Un« d» tlr.<«#w ftx* 



v*rcic*i. »'" 

19589 PPI^'PRIHT" PfiP L'RCVERSBIRE' 
".PPINT" - Rutonatii*.'*M-nt --i \'iPP*r 
eil d« " 

10339 PRIKT'votrt eo*4utRltr> fit d*va 
nt lui.et" 

10590 PRINT"s'il ** trouve dam »i u 
qn« d* Mir*." 

18391 PRINT" - ftiltow*tl<»u*m«nt si vo 
>>S tir*z sijr" 

19392 PRIKT"l'sovers*lre.trois fois d 

* suite ssns" PftlNT'l'stttlndre, 1 

10593 PRINT. PRINT'PPINT"Po.jr contlny* 
r,a:PPuv*r iur une tOttChe''C6TR»'CL8 

10594 PRINT. PRINT" RAV I Tfi I L.LEME 
NT EN VOL" ■PRINT'PRINT 

19393 PRINT" D*s <)u* 1'indicateur 
d* carbyrant" 

19396 PRINT"ttt*lnt \* Jau.n*.vou« Pou 
■■'*r Proc*d*r" 

19397 PRINT"* utl ravltai tl»rn*nt *n vo 
t.Po'jr c*la " 

10599 PRINT"il i-0'.'S fayt' "-PRINT" - 
RPPijy*r fur la tO'JCtl* 'C'.Dts c*t" 

19399 PRINT"in»tant un volant aPParai 
t *n htut d*" 

10600 PPINT"t'*crjn.3a couleyr indllu 
" 1u* vous" 

13691 PPINT"Po'jv»z diri«*r votr* aPPa 

reil,<vov«nt a 

10602 PPINT"w*rt) ou •".!* vous *t*» en 
Pilotas* "■PRINT"»..jtoM«ti«ij.« Cvowamt 

roufte)." 

19603 PRINT" - L'avlon ravltailttur 
<*n nolr>," 

10694 PRINT"»'aPProch* alor».Vou» d*v 
«.a. I'ald*" 

10603 PPIHT"d*« touch** fltchees,t*«« 
n*n»r dan* " PRINT"-jotr* collimateur.C 
*Ci fait-" 

10696 PRINT" - RpPus*r sur la touch* 
'ESPRCE'Pour" 

19607 PPINT"»vnchronl»«r vo* command* 

* sur c*ll«*"'PRINT"d'j ravitai 1 l*ur( vo 
yant rou9*r 

19608 PRINT" - Lonflu* t* ravltaitl* 
UP **t a un*" 

10699 PPINT"di*tanc* *uf f i»«nt*.un* P 

19619 PPINT"*t un tuvau s* dfPloie."- 

PRINT' PPINT"Pour contiw*r aPPuwez »ur 
un* touch*" 

10611 GETPS. CLS 

10612 PRINT. PRINT" RCCROCHPC 
E DU TtJYRU-'PRINT. PRINT 

19613 PRINT" L* "OMant Pass* alors a 
U vtrt Pour" 

19614 PPINT"vous P*rm*ttr* d'am*n«r 1 

'extrenlte* 

19613 PRINT"du tuvau ( 1* rond noir>,a 
U bout d« la" 

19616 PRINT"P«rch* d« ravttai lt*m*nt 
(*n nolr sur" 

10617 PRINT"!* Bluett* d« "Otr* *cran) 

' 10618 PRINT" Ouand t* rond nolr s* s 
itu* sur l«" 

10629 PRINT"bout d» la P*rch*. " 'PRINT 
■ - APPuvvz sur'ESPRCE'Pour savotr si 

19621 PRINT" le ravitaitt*n*nt *st r*n 



du Possibl* "PRINT" a* - 



Hint I 



"• 



10622 PRINT" L* ravitai 1 l*m*nt *'*f 
f*ctu* alors" PRINT"auto«ati1u*M*nt." 

10623 PRINT" RPr,» l* d*P#rt du ravi 
tai11*ur,U " 

10624 PRINT'Tartl* contlnu*. " 'PRINT" 
Cha4u* ravittll t«m*nt au»n*nt* l»" 
10623 PRINT"niv*a'< d* difficult*. " PR 

INT 



19627 PRINT PRINT PPINT"Pour continue 
r,«PPui»eZ sur un* touch*" 'GETRS'CUS 

10628 PRINT'PRINT" NIVEPU DE D 
IFFICULTE" PRINTPRINT 

10629 PRINT" L* nombr* H* Point* obt* 
nus Pjr tir" 

19639 PRniT"r*us*i est ProPortionn*t 
U ni"*au d*"-PRINT"diff icult* choisl. 
" PRINT 

19631 PRINT PRINT PRINT" Choi*l*»*z 

I* niveau d* difficult*" 

10632 PRINT"d* Kfacll* 1 a 9 Mlfflci 

le>." 

10633 GET HDt 

10634 ND-vaL'NDei 

)("->•■ IF NTX] THFH ]P^?? 

10616 TF ND>9 THEN t9633 

10637 PRINT'PRINT PRINT" ChOtftlSStl 
1* nivesu nonor* rfl - 3>" 

10638 CET SNt'IF SNS<"9" OR SN*>"3"TH 
EN 19638 

19639 SN-VRLC3NS>.SN-SN*3 

19649 IF SN<n© THEN PL-4 ■Qt-3 

10659 RETURN 

1 1 009 PEMttt imin. ll i m t».tiitMii 

nnttttn 

11001 R£M**t* PRESENTATION PILOTE DE 
CHRSSE t» 

11002 REM- 



11904 COS'JB 1 2000. REM CODAGE DES CARP 
CTERES 

11005 X-0. INK2HIRES 1 INK 6PRINTCHPS' 
17>.PRINTCHR«'6i 

11006 PLAY7.7.7.3209OPEM BRUIT RVION 

1 1007 cniii..i»iimii.i..iniiiiiiu 
ttttttttt 

11006 REM**t GENERIOUE 

ttt 
1 1009 REM 



11910 OJRSET0. 9.0. FILL 150. 1.20WAIT49 

e 

11920 FORV-40 TO 140 

11039 2-2*1. IP Z-3 THEN X"X*12-9 

11049 CURSET0.V.3 

11030 DRRH 113-<X*2),0,3 

11960 DR»H i *>: . e , i 

11079 DRAW3*(X'2>,0,3 

11980 ORRW1+X.0. 1 

11090 DRAW3+CX/2),8,3 

11100 DRRW1*X,0.1 

11119 NEXTV 

11129 FWV-141 TO STEP -I 

11130 2*Z*1IF Z-5 THEN X-X*12«0 
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DEMANDEZ LE PROGRAMME 

4cherez vos logiciels les yeux fermes, nous les avons testes pour vous ! 

Noui avona ailectlonna pour voua laa mellleurt togtctela actuellemant dlaponlblaa an Franco. Noua ne 
pr6tandona paa quacatta title eat complete et definitive at It ait ivldant qua noua y rajouteront ragu- 
llirement daa programmaa au tur at a mature qua nout let taitarona. Pourtant, voua chercherex an 
vain certalnt programmaa qui {oulttant d'une bonne reputation at qui se vandant aurtout grace a la 
publlclta at aux contella daa vandaura qui ne pauvant paa connaltra tous lea loglclala dlaponlblat. 
Noua avons clause a part laa logiciels educotlta at, par toucl d'honnetete, noa proprat produlta : let 
Hebdoglctel Software. 

Laaprlx tont, noua I'etperona, laa malllaura du marche aurtout pour laa abonnaa - ancient at nouvaaux 
- qui banatlclent an plua d'une ramlaa da 10 %. SI voua etaa nombreux a noua aulvre dana cette expe- 
rience noua pourrona rapldamant arrlvar a talra balatar lea tarlta daa tournlaaaura pour attalndra 
I'oblacttt qua noua noua aommaa tlxe : ronmner lea prlx A una plus lutte valour ' 
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LABYRINTHE 



C'est encore un programme de labyrinthe, mais celui-ci 
n'est pas pr6sente comme d'habitude. En eftet, on 
choisit la grandeur du dedale, on est parachute a un 
coin de la grille (en bas a droite) et Ton doit atteindre 
I'autre extr6mit6 (en haul a gauche). Apparemment la 
voie est libre mais lorsqu'on avance on peut se heurter 
a des murs (carres noirs), il faut alors les contourner et 
si Ton ne peut atteindre la lettre A (de arrivee) GAME 
OVER (la partie est terminee). 

Arnaud MAITRET. 



Comme il est ecrrt on appuie sur 1, si ion veui voir la grille en 

totalile on appuie une deuxieme lois sur 1. 

Des informattons sont tndtquees pour renseigner le joueur. 

Pour passer aux explications on au jeu. il faut appuyer sur une tou- 

one lorsque le programme est lance. Le joueur est represents par un 

S . les cases sont des et lorsquil est passe ses traces sont des ,. 

Pour se mouvoir. se servir des touches flecbees sans Shift. 



z* 81 



3 wi" ;t s.a, 'ooor paasen n 




s point ar 13,3, -wous rppuyez 

i.a lne ■"-■ — -- 

7 IF II 

8 CLS 

la mfue an 

S« -•- s-8 
a cls 

4* POINT RT 11, 11, ■■PCPMflT ?■■ 
SS LET P«9 

se ^et u-i 
'8 :n»ut t 

5S IF W,i9 OH p<s THEN OOTO ' 
a LET N-INT PtF/S 

i« f«st 
ne cls 



iae let x-f see 

13a let v.r s?e 

i*a let c«e sse 

143 RE" •••••••♦••••♦♦•t*4»4«»4 ise 

145 REM TRACE DC LP. GRILLE 383 

148 REM ..... ............... ... 319 

1S9 FOR fl»l TO P 339 

148 FOR U-I TO F ENF' 

178 PRINT AT 0,u;"." 339 

189 NEXT U 349 

199 NEXT 388 

1S3 REM M.4HI i h. 3 

133 REM PLACEMENT DES MURS 353 

198 REM *********************** 378 

see pond int iRNDtassi a 

218 CQSuB 1598 368 

338 OIH 0[F«?) 

2*8 LET 0-F4F-1 398 

ase fop 1*1 to int n a 



488 IF tmCf $•"*• TntN OOSUB 7# 
418 IF IHKevi"'»' THEN S05UD 08 

499 0OT0 348 

479 REM iiliiltl .* 

- --EMEN- 



&EPLBCEMENT 



439 REM . 1 MIDI t t. 

see if x.i then let x.x-i 

III LET C-C*l 

cae if biint (vif-r.xjui then 



sse LET X.). 

see return 

698 if v«f then let y.y*i 

sie let c«c*i 

638 IF RIIMT (YtP-F*Xll-l THEN 
OOTO 849 

639 RETURN 

649 PRINT RT V,X, ' ■" 

638 LET YiY-1 

669 RETURN 

708 IF Y>1 THEN LET Y.Y-1 

718 LET C-C*l 

738 IF RUNT IY»F-F.X)1-1 THEN 
GOTO 749 

739 RETURN 

748 POINT RT Y,X, •'■" 

738 LET Y-Y.l 

768 RETURN 

898 IF X'F THEN LET X.X.I 

818 LET C-C*l 

eae if r(Int [y.f-f.xii.i tmen 

GOTO 84 8 

838 RETURN 

B4B PRINT BT Y,X; '■" 

850 LET X.X-1 

855 RETURN 

369 REM ....................... 

878 REM FIN &E PRRTIE 

89B REM *********************** 

-598 PRINT RT ai,8,"CRCNE EN ",C 
; '■ COUPS 

918 LET U-U*l 

938 LET P-P. II. 5»U4N*F) /(.S»F*U 
} -C«F».3 

923 FOR D-l TO 8e 
334 NEXT O 

939 IF RN0).4 THEN OOTO 989 
948 LET N.N*INT F« (PND»191 /18 



LET fl.HNO 

LET R (INT (R«C*1) ) »1 

NEXT I 

LET R (11 -0 

LET fl(F»P) *8 

PRINT AT 1 1' ,h R" 

print ar ai,e, "si uoua etes 

ERMEtEl TRPEZ 1" 
SLOU 

PRINT PT Y,X; "t" 
IF X»l AND Y*l THEN GOTO 98 



978 LET F«F*1 

988 LET N«N*INT F • IRN|>»18> / 18 

399 OOTO 188 

933 REM , 

995 REM OflME-OUER 

998 REM hi •»••>. 

i«ee Cls 

«T 6.8, 






E TAPEZ 

1959 PRINT "OOUR REJOUEP TAPEZ-E 

N UNE AUTRE'" 

196B FOR Z»l TO 198 

187B IF INKEYf. " " THEN NEXT Z 

1889 IF INKEV|"-'l" TMEN OOTO 118 



IF INKEY|."5" THEN O05U6 59 
IF INKEYI.-O" THEN O0SU8 68 



ill! rem »^ f V5 RTI °" 0Ei MUft= 



1198 CLS 

1118 "a»T 

111S V;1j3 1889 

1128 'OR 7.1 70 F 

1138 FOR Z-l TO F 

1148 POINT err Z.T,"." 

11S9 IF AUNT (Z#P-F*T) 1.1 THCN 

PRINT RT Z.T, ■ 

1169 "E*T t 

1179 NEKT T 

11S9 PRINT RT V.X, » 

1138 Sl5u 

1S89 PAUSE 4E4 

1218 ClS 

isae 3070 38 

1470 REM MUM • 

1468 OEM INFORHOTIONS 

1498 REM 11.1 .1. 

1599 PRINT RT 9,32, 'FORMAT ,F 

1518 OolfiT RT 2,22, PT3 ' , IMT P 

1539 POINT RT 4,22, SCORE " , IMT 

S 

1538 PRINT RT 6.22, TOURS , g 

1648 PRINT OTT 8,23, MURS " , INT 

1558 PRINT PT l,li "A-- 

1569 RETURN 

1979 REM IMMMMMMMMMMM 

1398 =EM REOLE &U -JtV 

1999 REM MMMMIMMMMMMM 

3989 PRINT RT 1,10, ^OSVOINTi-f 
2085 PRINT RT 5 , 1 , .— -_ m— 1— v> 
3818 POINT ,.■ IL SE PRESENTS SO 
US LR FORME 0" 'UNE ORIlLE CRRR 
EE DU FORMAT OUE uOUS RuREZ C 
MOISI (ENTRE 5 ET 3 

9) ■' 

3829 PRINT ,," CE FORMAT CORR 
ESPOND R UN CERTAIN NOMBRE 
E MURS" 

3939 POINT , , - R CMA8UE TRBlERU 
( C'-EST-R-OIRE LORSOUE VOuS RTT 
EIONEZ LE POINT —'flr- i - 
2835 POINT ,,■' LE ZX 0A63E A U 
N NIVEAU DE DIFFICULTE SUPER 
IEUR" 

3B4B PRINT ,,■ LE DEPlACEhEnT 
S""EFFECTUE ft L"-- AIDE DES TOU 
CME5 FlECmEES - 

2B42 IF INKEY». ■■'■ TMEN OOTO 3843 
2844 CLS 

2048 PRINT RT 4.2,'UOUS NE RIS8U 
£Z PAS OE UOUS PEADRC MRIS SEu 
LEMENT DE OESTEO ENFEOf-E OE PLU 
S UOUS NE OECOUV-RIOEZ UOTRE C« 
EMIN Ou""AU COURS OU JEU" 
2858 PRINT RT 19,3,-LES POINTS S 
ONT PROPORTIONNELS RU FORMAT , 
31 UOUS LE PRENEZ TROP PETIT U 
OS RISOUEZ D-'RUOIR OES POINTS 
NEOATIFS, " 
2856 PRINT AT 16,9. "SONNE CMflNCE 

3668 FOR Mi8 TO 489 

2879 IF INK£Y|(,"" THEN OETuRN 

2089 NEXT M 

2998 CLS 

3909 RETURN 

3883 REM ....................... 

3985 REM SAUUECARDE 

39ee rem ....................... 

3019 SAUE '■LABYRlNTMa ' 
3828 RUN 

LE TEXTE EN UIDEO INUERSEE OE LA 

LICNE 1985 EST 

'■ ** RECORD BATTU •• " ■ 



TEMPLE 



Les fleches — *• et T vont vous 6tre indispensables pour 
venir a bout de ce jeu ou foisonnent des lianes et des 
monstres. Votre vie ne tient qu'a un fill. 
— * permet d'avancer et d'attraper les lianes. 
t permet de sauter les obstacles. 

Patrice LEON 
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«OO0 LOC»Tfx,y;FniMT ■ -i:»eru»M 

4030 LOCATE X.CIFRIHT A«:»ETij»M 

3930 0OVUS4OO0I LOCATE Jf,3:FPIHT CM»* 

'I37)|:00T033«0 

3333 L0CATtX,Y:F*IMTCHF*n3»l 

33*0 FD*H-Z4T048TEF-I;>EEFH > i:>CEFH- 



3343 CLBlFFir 



VOUS *'JEZ BUCCOH 



3344 0OBUI70O0 : 0OSUB7OOC 

33*« IF3C>HCTHE»l»«:»SCeL5t50T03373 

3370 CLBIFFIMT ■ MAII VOUS DtltHfZ 






eo 

3373 CtBSPFIKT • • 

c,* vorn tcoMi'isc 

3380 FO»M-12T03«!»«EFH,1!BMFM*3,IIM 
IXTM3383 CLt!F»rMT * •,'D**I**2 VOUS 

nsTTBHlff* 

33»0 IF TKEYl'M'lTHCMCLStlMD 

33TS !FTxiri-o*iTM«ncL«:aoT03 

33»7 0OTQ33»O 

4000 SOHt*-OT070:M«XTM:FtTUl»»l 

7000 FOI>H-lT030lMEFH,i:HfXTHIF0A>f3 



0T01BTEF-1 



WIPM, IIHEXTH;FITU>n« 



•0O4 F0MTSII32)-*732, 128, ITS, 44, 44,3 
2,32,14* 

•»iox<|]-io:x<3i-iS!Y(i>~iiY'3i-iti 

(1J — 1J t (2CIIC-2 

•03O i*-STICK(OI IBC-SC-I i*»-*0* 

■040 IFWO3TFMM00T08I00 

•043 90SUUI0OO 

•047 IFX-I8THCN00TOZ0OOO 

•070 IFX>130*X(80*X-1*TKCI«OOT08IOO 

• 073 IFX-X(1IONX-MI2ITH»NK1TO«IOO 
•0*0 0OSUB333O 

• 100 1F/-/'1 IOFX-XI2ltMENWEF0,0€U«« 

■BTB H OC 

• 103 Aa-CHI>«<l3*l!aOSUB3400:0OSUB390 



•io« oosu»4ooo 



• 119 

• 120 

■ 173 

■ 300 
0000 
T0O3 



IFX» I < 21 -X 1 2 > THINX'K ( 2 1 
aOSUtM03Q 
0OTO«O3O 

0OSUB34O0 ! OOBUB3300 ! OOT04030 
LOCATI 0.3IFD1NT "1 
F0MT«U33I— 0,0, 132,133,72, 73,4 
•007 FOMT«U32I-'0,4«,72,72,137, 



)-»010 C-3U 



•12IN 
'(1I-31Y 



voio wsricxioi isc-sc-i 

•030 IF wl«NSM<>17TH>MOO«unoOO 
T040 IFW-STHIMOOSUBIOOO 

toso iFu-7THanaosuB3ooo 



9033 IFX>ieTHENOOT070000 


'°*° 0O8UB2303 








9O70 O0SUB33O0 








7080 008Ut3303 








9090 MTO»030 
















2,144* 








9303 FONT* I 1321- 




e 


14, 240, 48, 11 


,73*49* 








7310 ooroioi 








20000 SC-SOlOOl 








20OI0 ET-ETMlCI- 


1L0CATE O.OIFFINT* 










30030 ONrTOOTOO, 






100,7300 


70033 D-JMT(»MD( 


1*3 




10HDO0TO80OO 


7000, T-300 









e^ 
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RPCR PR, PT 

LCT U.flTTB it 
1«27 IF U-3 THEN 



PR KIT RT 



-Ij" for r-x 

PRINT INK CL, <» 
BEEP .0*5 , -30 : 
1) 

LET R-3 OO SUB 

LET R-l: OO SUB 



00 SUB 



110© IP RTTR (Y,y.21 =13 OR RTTR 
(Y.X+S)** OR RTTR (Y.X+21.1 THEN 

lkt r*ii oo to aaaa 

lies PRINT RT V,X*lj " - : FOR F-X 
*1 TO 8 3: PRINT INK CL, PRPCP PR 
; RT Y ,r , Z8 BEEP . 8*3 , -3© : LET U» 
RTTR (Y,r*lJ 
1127 IP U-3 THEN LET 

3S99: OO TO 1132 
1130 IF U>6 TMEM LET R=l: QO SUB 

3 BOO 
119« jr U>13 OF. W«* TMCN HETUKH 

1138 ir r .s: tmcn return 

114 PRINT RT Y ,P; " " , NEXT P 
1200 IP RTTR (Y-a,>f) "1 OR RTTP ( 
Y-2.X1 =13 OR RTTR (Y-6,X) -4, TMEN 

let !--!■ oo to seeo 

1205 PRINT RT Y-l.X;" FOR P-Y 
-1 TO 1 STEP -1 PRINT PRPER PR, 
■ ', Z% : BEEP .03 , -30 : 



LET u-RTTR 
1227 > IP U-3 TMfl. 

3598: OO TO 1232 
1230 IP U-6 THEN LET R=l . 00 SUB 

3O00 
1232 IP U-13 OR U-* THEN RETURN 
124.0 IF P-1 TMCN PETURN 
1S50 PRINT RT r,X," "; NEXT P 
1300 IP RTTR (Y+2,X) *1 OR 
Y*a,X) -13 OR RTTP 

LET I.li CO TO 20 
1305 RR7 ~ 
*1 TO 2« 
; RT F " 
RTTR 
1327 



lct R-a- oo suet 



) *1 OR RTTR 



t » 



DEEP 



LET 

00 SUB 



'J-3 THEN LET R-2 
. _0 TO 1332 
1330 IP U-5 TMEN LET R = 1 ; 00 SUB 

3500 
1332 IP U-13 OF' U-4, TMEN RETURN 
13*0 IP P-20 TMCN RETURN 
1330 PRINT RT P,X;" NEXT P 
1300 LET T-0 

1305 Dim r (27" dim 6"t4.) 

1510 roR P-1 TO 20 POP I-F. TO 2 



r , II 



LET T- 



NEXT r 



•B (2> -1 



T»l LCT f 

1322 ir Ti 

1323 ir R. 
1530 ir Ti 
1340 I1E/T 

1330 IP R I li -R iai wr 
AND R'3j-R(*J RNO 0I_ 

O All. >ei3)-a RNO Et(l)-0<4)-3 TM 
EN OO TO 1550 
1350 IP B'lUBISi 
RNO 5 '31 -B '4 ) RNC 
O fill) .00) -2 RNC 
CN OO TO 1550 
16*0 PRINT RT 2,0, INK 7, PLASH 
1,"PRU*!'- rOR M-0 TO 50: NE«T r 
1500 LET SO-ae PRINT RT M,9. " 

1520 RETURN 



ND 8 O) -O 13) 
' 1 i -R '21 -1 RN 



1530 PRINT 



Bill , ■'6 ,, i,R 
> ,B (3) ,'■*>'■ 
TO 1670 



5. PRPER 

R (21 , B (2 

RT fl (4.1 ,B 



1670 POR 

OUT -~ 

1640 

T _-•&- . 8 

1700 OOPC-E 



NT rLflSM 1, INK «, FAP 

'm.6 B Tv' lot- out 28*,f 

M*50: NEXT M 



O > 1 TMCN 



1 CLS OO TO 50 

. THEN RETURN 
2003 PRINT INK 3,RT V * I , X *P ; "tt" 

BEEP . 1 ,20 
2010 PRINT INK S;RT Y + I , X *F J , ",i!" 

KEEP . 1 , 10 
2020 PRINT RT Y»X,X»P," '■ ; BECP 



3000 ir G'll-0 TMEN LET G(ll-1- 

RETURN 

3010 IP O'2)-0 THEN LET 0I2)-1 

3100 PRINT INK 2;RT M(R),N(R);-' 

31 10 LET 0>-INT (RND7 (RBS ( ID-O . ' 

3120 IP 0-6 TMEN OO TO 3200 

3125 IP 0-3 TMCN OO TO 3260 

3130 IP Q-l OR G>-14 THEN 00 TO 

3136 IP O -< TMEN OO TO 3199 

31*0 ir o-a or o-o or o > -» tmen 

OO TO 3830 
31*2 PRINT RT 

2 
3143 RETURN 
3150 IP Y >W !R1 
> *1 : IP RTTR ( 

LET M (R» -M IRJ 
3160 IP Y <M (R) 
IF RTTR | 



(R) ,N (R) 



INK 



LCT 



1 [R 



3170 QO TO 3250 

3120 IP V<M(R1 TMEN LET H<R)-M(R 

1*1. ir RTTR (M IRJ , N (Rl 1 ( >a TMEN 

LET M (Rl -M (R) -1 
3200 ir Y>-M<R) TMCN LET M(R)-M( 
R) -1: ir RTTR ( M ( R I , N 1 R 1 ) <>a TMC 
N LCT M (Rl -M (Rl +1 
3210 00 TO 3200 

3220 ir X>N(RI TMCN LCT NCRI.NCP 
1+1 IP RTTR <M(R),NIR>)<>a TMCN 

LET N (R) -N (R> -1 
3230 ir X<N(R) TMCN LET N(R1-N(R 
1-1: IP RTTR (M 'Rl ,N (R) t < >a TMCN 

LCT N (Pl-N IR) *1 
32*0 OO TO 3200 

3260 IP Xt-N(R) TMEN LET NIR1.NI 
■' (R) 1 < >a THE 

*INT RT MIR 
B: INK 8 : Ft 

*1 . "rY' i LCT 

ITURN 

») i "W : BEE 

i) ; "«»" : eee 



LET N <R1 



E + URN J • 



3255>PRINT PT M (R 
Z (Rl -1 

33O0 INK 3 ; RCTUR 
- "- ) -0 TM 



3500 IP 
3305 PR 

P . 1 ,2 r 
3510 P 



RINT RT M ( 



3320 PRINT INK 2 , RT ^ 

DEEP . 1 , 10 
3560 LCT M (R) -10 ; LET N (Rl -ZNT I 
RNO*l ,9*2) • 10 LET O (Rl -0: LET 5 
•3*10: RETURN 
4000 rOR 1-0 TO 6 
4005 INK 1*1 rOR P-0 TO 7 
4O10 PRINT RT Y,X,CMR« I144tri ' 
BEEP .03,1 
4030 NEXT P NEXT I 
4030 PRINT RT Y,X,' i W BEEP .1,2 



PRINT RT 



eecR 



1,3 



4050 PRINT RT Y,X;" "i BEEP .1,8 
RNO»18) *6 LET V 
X> -4 TMCN OO TO 
I 1 TO L 

ro 4300 



LCT X-INT 
(RNO. 18) »1 
ir RTTR IV 



4050 LCT 3*3-5 LCT K|.x| 

CN K8-2) 

4090 IP LEN K8-0 TMCN OO 

4 100 PRINT INK 6, RT 1 , 37; k«; ■■ 

*110 INK 2 OO TO 500 

450© CL5 ir H81S TMCN PRINT «T 

10, 10, -'RECORD |ii LCT MS-3: P 
P-U3E 3* 

4310 PRINT RT 10, 10, '*.CORC 
INT V RT 12.7, -HIGH SCOPE • " , IN 
T M» 

4SS0 PfiUSE 10O CL5 OO TO 30 
70*0 LCT X-K-l LET ««■".«>" LCT 
8t-*'"0" IP RTTR 'Y.XI-13 OR RTTR 

- 'i .4 TMCN LET X-X*l LET TT. 



LCT X-X il LET RB- 1 '*" LET 

IP RTTR (Y.XI-13 OR RTTR 
1-4 TMCN LCT X-X-l LCT TT - 



72 LCT Y-Y- 1 LCT Rf-"*»" LET 
6*- <*" IP RTTR >Y,')-13 OR RTTR 
(-,',;•>. 4 TMCN LET Y-Y*l LET TT - 



I LCT *•-•••)■■ LET 
TF> 'Y.Jf)-13 OP RTTR 
LET Y-Y-I LET TT- 



FICH.UTIL 



Cet article est destine en partie, a la HP 41 munie du 
module X functions et 4 cartes magnetiques contenant 
les programmes correspondants. 
Je pense que cet article interessera beaucoup de pos- 
sesseurs du module, decus par la faible maniabilite 
des fichiers alphanumeriques. En effet. il est assez dif- 
ficile d'evaluer la taille d'un fichier avant meme de le 
creer. pour cela, le plus souvent on prend la taille 
maximale, mais une fois le fichier cre6, la memoire 
etendue est saturee. II faut done compacter le fichier 
mais cette fonction n"existe pas a I'origine. De plus, si 
on essaie d'evaluer sa taille et qu"elle est trop petite, 
on doit tout recommencer avec une taille plus grande. 

Serge VAUDENAY 



Void quelques nouvelles fonctions illustranl la gestion de fichiers sur 
le module X-FUNCTIONS, pour toutes les HP 41C (avec ou sans 
periphenques) . La configuration du premier programme est done un 
HP 41C et un module de memoire simple (au minimum avec, bien 
entendu. le formidable module X-FUNCTIONS. 
Imaginons que vous vouliez creer un fichier ASCII contenant. par 
exemple. la lisle de voire materiel Hewlett Packard et son prix. Au 
debut, vous devez done evaluer la taille de voire fichier!!! Vous dites 
un chiffre approximate, (honnetement, j'ai pris 10 registres au de- 
part), vous commencez a introduire votre fichier. et au bout d'un 
certain temps, ce qui devait arriver arriva: la calculatriee s'arrete sur 
*END OF FL*. Decu. vous recommencez avec une taille maximale, 
et une fois votre fichier termine, votre memoire etendue est saturee. 
Voici done, 7 nouvelles fonctions destinees & vous faciliter la vie. 
La premiere de ces routines est indispensable pour les autres pro- 
grammes: elle permet de transferer un fichier alphanumerique quel- 
conque, de la memoire etendue a la memoire centrale. sous forme 
de registres de donnees (1'operation inverse est heureusement pos- 
sible). Cette fonction nous permettra par la suite de compacter des 
fichiers, de les agrandir (ou de les raccourcir), et de les sauvegarder 
sur cartes magnetiques. 

Cette routine se nomme "GETFL" (pour plus de facilites, j'ai utilise la 
semantique du HP 41). Un XEQ'GETFL" demande le nom du fichier 
a transferer; apres avoir ecrit son nom, pressez R/S, et si la calcula- 
triee s'arrete en affichant "NO ROOM*, e'est qu'il n'y a pas assez de 
place en memoire de donnees et que le transfert est done impossi- 
ble. "LOADING" signifie que le programme est en train de charger le 
fichier. Le transfert se termine enfin par "SIZEnnn" qui indtque le 
nombre de registres de donnees ulilisees (nous verrons par la suite 
que ced est tres important). Au debut du chargement, le programme 
essaie de mettre le SIZE maximum (que nous symboliserons par la 
variable y). calcule en fonction de la taille du fichier (x): y= 6x /7+ 
3. 

Le SIZE final est done inferieur a y, car il tient compte de la place 
non utilisee dans le fichier. 

L'operation inverse porte le nom de -SAVEFL". Si la calculatriee 
s'arrete sur "NO ROOM' apres XEQ'SAVEFL", il n'y a pas assez de 
place en memoire etendue pour transferer le fichier. "DUP FL" indi- 
que qu'il en existe deja un portant le nom de celui que vous voulez 
tranferer. "LOADING" temoigne du chargement. 
La structure du fichier en memoire principale est la meme qu'en 
memoire etendue: une ligne commence par un octet indiquant le 
nombre de caracteres de la ligne et il y a deux registres d'en tete 
(ROO et R01) indiquant le nom du fichier complete, eventuellement, 
de queiques espaces (sixieme caractere de ROO+ les six caracte- 
res de R01) et sa jaiNe (divisee par 100 et completee par une etoile 
pour faire 5 caracteres dans ROO). 

Prenons un exemple: vous avez un fichier ASCII de 20 registres 
nomme "FACTURE" dont voici le listing: 
OOHP-41CV:2250F 

01 X-FUNCTIONS:690F 

02 CARD-READER:1460F 

03 40CARTES:215F 

04 3ETUIS:135F 
05MATH1:330F 

06 4PILES:18F 

07 TOTAL:5098F 

Apres avoir introduit ce fichier. faites XEQ"GETFL" A "FICHIER ?". 
vous repondez "FACTURE" R/S. Normalement. "LOADING" s'affiche 
sans probleme, puis le programme s'arrete sur "SIZE 021". 
Explorons done les registres de ROO a R20: 



0Q.0...2.0/ .F... 

01.A.C.T.U.R.E 

02.(13).H.P.-.4.1 

03.C.V.:.2.2.5 

04,O.F.{16).X.-.F.... 

05.U.N.C.T.I.O 

06.N.S.:.6.9.0 
07.F.(17).C.A.R.D... 



..taille:020 

nom:FACTURE 

taille de RECOO: 13 caracteres 

....-HP41CV:2250F" 

taille de REC01:16 caracteres 

"X- FUNCTIONS :690F" 

taille de REC02: 17 caracteres 



...taille de REC07:1 1 caracteres 
..TOTAL:5098F" 



A noter que "VIEWFL" visualise meme les enregistrements de plus 
de 24 caracteres: la difference est a peine visible. Exemple: 

- creer un fichier ASCII "ALPHA" de 5 registres par CRFLAS 

- Introdulsez "ABCDEFGHIJKLMNOPQRSTUVWXYZ". APPREC. 
"YC". APPCHR; 

- Visualisez le fichier "ALPHA" avec VIEWFL. 

Si vous voulez sauvegarder un fichier alphanumerique sur cartes 
magnetiques, vous pouvez utiliser "WFL". le SIZE qui vous est 
donne a la fin du chargement vous sera redemande lors de la lec- 
ture (avec FL). e'est pourquoi il est recommande de I'ecrire sur les 
carles. L'emploi de WFL est tres simple: vous introduisez le nom du 
fichier a sauvegarder apres XEQ"WFL", R*'S, et vous passez les 
cartes magnetiques apres LOADING. Par exemple. si vous voulez 
sauvegarder le ficher "ALPHA", vous faites XEQ"WFL", le pro- 
gramme vous demande alors "FICHIER?". Vous repondez "ALPHA". 
Ft'S, et apres un "LOADING", SIZE 007" s'affiche. Vous passez 
alors une carte, sur laquelle vous ecrivez "FL ALPHA SIZE 007". 
Pour la lecture, le programme demande le SIZE immediatement 
apres XEQ'RFL". vous faites "ALPHA" XEO'RFL'et ensuite R/S et 
vous passez les cartes. Dans notre exemple, vous faites "ALPHA" 
XEQ'PURFL" pour detruire le fichier "XECTRFL', la machine vous 
demande "SIZE?", vous repondez 7(que vous lisez sur la carte). 
R/S, puis vous voyez apparaitre "CARD". Vous passez done votre 
carte. "LOADING" s'affiche, puis la machine s'arrete. Pour verifier 
que le fichier a bien ete introduit, vous faites XEQ"VIEWFL". la ma- 
chine vous demande "FICHIER ?", vous repondez done "ALPHA" 
R/S et vous obtenez: ABCDEFGHIJKLMNOPQRSTUVWXYZ. 
Voici maintenant un petit programme servant a mesurer la taille des 
programmes "PGSIZE". Son emploi est simple: apres 
XEQ'PGSIZE". le programme vous demande "PROGRAMME ?". 
apres avoir ecrit le nom du programme a mesurer. vous faites R/S 
et la machine vous retourne sa taille en registres arrondie par 
exces. Si le programme s'arrete sur "NO ROOM", votre programme 
n'a pas la place d'etre transfere en memoire etendue. et done 
"PGSIZE" ne peut pas le mesurer, Comme exemple, vous pouvez 
mesurer la taille de "PGSIZE" lui-meme!!!(normalement, vous devez 
trouver 5 registres). 
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8.:.1.8.F.(11).T... 

9.0.T.A.L:.5 

20.0.9.8.F. 

La fonction "PACKFL" serf a compacter un fichier se trouvant deja 
en rnemoire centrale. En reprenant notre exemple, faites maintenant 
XEQ"PACKFL", et apres le message "PACKING", la machine s'ar- 
rete sur "FLSIZE 017": nous pouvons done economiser 3 registres 
en rnemoire etendue (20-17) en effacant le fichier "FACTURE" et en 
lancant "SAVEFL": en mode alpha, ecrivez "FACTURE", puis en 
mode calcul, faites un XEQ'PURFL", puis XEQ'SAVEFL*. Apres 
"LOADING" faites XEQ"EMDIR". vous obtenez "FACTURE A017". 
Helas, il vous faut Inserer I'enreglstrement "ACCUS:545P car vous 
yenez d'acheter des batteries a votre HP41. Vous pouvez desor- 
maJs agrandir un fichier grace a la fonction "FLSIZE + ". Vous lan- 
cez done ce programme par XEQ'FLSIZE 018". Vous pouvez alors 
mettre en alpha "ACCUS:545F", faire 7. SEEKPT. INSREC. GE- 
TREC. DELREC, mettre en alpha *TOTAL:5643F". APPREC. 
Si vous voulez visualiser votre fichier, lancez le programme 
"VIEWFL" et repondez "FACTUflE"R/S a "FICHIER ?". Pour arreter 
momentanement la visualisation dun enreglstrement. on peut (aire 
comme dans le cas d'un EMDIR: appuyer sur une louche quelcon- 
que autre que ON ou R/S. Vous obtenez: 
OO: HP-41CV:2250F. 
01:X-FUNCTIONS:690F 
02: CARD-READER:1460F 
03:40CARTES:215F 
04: 3 ETUIS 135F 
05:MATH1:330F 
06:4PILES:18F 
07: ACCUS:545F 
08: TOTAL5643F 



1845 16.61 


9HLBL -UTFIM 


82»LBL -SBVEFL 


83 "S. VAUDFNOY 


84«LBL 19 


95 "A" 


96 ARCL 99 


9? flRCL 91 


93 flNUM 


99 199 


18 • 


11 flSHF 


12 CRFLAS 


13 -LORDIHC- 


14 AVIEH 


15 2 


16 CLA 


17 CF 17 


18 CF 85 


19HBL 95 


28 SF 25 


21 PRCL IHD X 


22 1 


23 ♦ 


24 FS? 95 


25 XOY 


26«LBL 98 


27 FC? 85 


28 ATOX 


29 FS? 17 


38 PPPCKR 


31 FC?C 17 


32 APPREC 


33 RLEHC 


34 CF 85 


35 X>V? 


36 CTO 86 


37 X«Y? 


38 SF 17 


39 X«Y? 


48 SF 85 


41 X=8? 


42 CF 17 


43 - 


44 CLfl 


45 XOY 


46 FS? 25 


47 CTO 85 


48 RTN 


49«LBL 86 


58 - 


51 CHS 


52 RCL X 


53 1 E3 


54 / 


55 CHS 


56 RCLPT 


57 ♦ 


58 SEEKPT 


59 RDH 


68 DELCHR 



61 CHS 


62 ALEHC 


63 ♦ 


64»LBL 87 


65 flTOX 


66 RDN 


67 DSE X 


68 CTO 87 


69 RDH 


79 GTO 88 


7I*LBL • GETFL - 


72»LBL 11 


73 -FICHIER ?• 


74 flOH 


75 PROHPT 


76 AVIEN 


77 flOFF 


78 8 


79 SEEKPTA 


89 FLSIZE 


81 RCL X 


82 XEO 89 


83 •!■«- 


84 7 


85 « 


86 6 


87 / 


88 2.99 


89 » 


99 PSI2E 


91 -5 


92 AROT 


93 flSTO 88 


94 flSHF 


95 ASTO 81 


96 -LOADING" 


97 flVIEM 


98 2 


99 CLfl 


188 EHTERt 


181 CF 17 


182«LBL 81 


183 RDH 


184 FS' 17 


185 CTO 92 


186 flSTO Y 


187 CLfl 


188 8 


189 XEO 84 


118 FC 25 


HI CTO 83 


112 RCLPT 


113 1HT 


114 SEEKPT 


115 RDH 


116 CLfl 


117 flRCL Z 


118 XTOA 


119 RDH 


128»LBL 82 


121 flSTO Y 



122 -ABCDEF- 

123 flSTO L 

124 ARCL L 

125 flRCL L 

126 flRCL Y 

127 ARCLREC 

128 flSHF 

129 flSHF 
138 flSHF 

131 OLEHC 

132 6 

133 - 

134 flSTO IHD Y 

135 XW 

136 GTO 81 

137 RDH 

138 1 

139 » 

148 ENTERt 

141 CLfl 

142 GTO 81 
143«LBL 84 

144 SF 25 

145 GETREC 

146 FC? 25 

147 CF 17 

148 flLEHG 

149 ♦ 

158 FS' 17 

151 GTO 84 

152 RTH 
I53»L8L 99 

154 RCLFLftG 

155 XOY 

156 188 

157 / 

158 FIX 2 

159 flRCL X 
168 RDH 

161 STOFLRC 

162 RDH 

163 RTH 
164<LBL 83 

165 RDH 

166 RCL IHD X 

167 SF 25 

168 DBS 

169 SIGH 
178 I 

171 - 

172 CHS 

173 t 

174 PSI2E 

175 -SIZF • 

176 XEO 89 

177 -3 

178 AROT 

179 flTOX 
188 2 

181 flROT 

182 flVIEH 




183 RTH 


255 ORCL Y 


184»LBL -PflCKFL- 


256 STOFLAG 


185 -PflCKIHG- 


257 -Ft- 


186 flVIEH 


258 -5 


187 SIZE' 


259 AROT 


188 1 


268 ASTO 88 


189 - 


261 XEO 18 


198 CLA 


262 CTO 12 


191 9RCL IHD X 


263H8L -RFL- 


192 2 


264 -SIZE ?' 


193 - 


265 PROHPT 


194 6 


266 PSIZE 


195 • 


267 XROH 38.82 


196 ALEHC 


268 CTO 18 


197 ♦ 


269«LBL -UFL- 


198 2 


278 XEO 11 


199 ♦ 


271 XROH 38.87 


288 7 


272 RTH 


291 / 


273»L8L -VIEHFL- 


282 IHT 


274 -FICHIER T 


283 LRSTX 


275 AOH 


284 FRC 


276 PROHPT 


285 X«8? 


277 AOFF 


286 SICH 


278 8 


287 » 


279 SEEKPTB 


288 "A" 


288«LBL 13 


299 ARCL 88 


281 SF 25 


219 ASHF 


282 CETREC 


211 198 


283 FC? 25 


212 ' 


284 RTN 


213 RCLFLAC 


285 SF 25 


214 FIX 2 


286 SF 99 


215 ARCL Y 


287 SF 25 


216 STOFLAC 


288 AVI EH 


217 -F»- 


289»LBL 14 


218 1 


298 FC 25 


219 AROT 


291 RTN 


228 ASTO 88 


292 FC 17 


22HLBL 12 


293 CTO 13 


222 CLA 


294 12 


223 flRCL 88 


295 AROT 


224 flHUH 


296 ASTO X 


225 RCLFLAC 


297 ASHF 


226 FIX 2 


298 ASTO Y 


227 "FLSIZE ■ 


299 CLA 


228 ARCL Y 


388 ARCL X 


229 STOFLAC 


381 ARCL Y 


238 8 


382 ATOX 


231 AROT 


383 ARCLREC 


232 ATOX 


384 AVIEH 


233 2 


385 CLST 


234 AROT 


386 CTO 14 


235 flVIEH 


387 EHD 


236 RTH 




237»L8l "FLSIZEf 




238 XEO 11 


-A 


239 -A- 


.«% A.A 


248 ARCL 88 f 


lQ *¥» 


241 flRCL 81 1 


f*l» 


242 flHUH 


\ * w 


243 ASHF 




244 PURFL 


18:58 16.81 


245 -REC+- 


8IH8L -PGSIZE- 


246 PROHPT 


82 "PROCRAHHE ' 


247 188 


83 AOH 


248 / 


84 PROHPT 


249 ♦ 


85 AOFF 


258 RCLFLAC 


86 SAVEP 


251 FIX 2 


87 FLSIZE 


252 -A" 


88 PURFL 


2S3 ARCL 88 


89 EHD 


254 ASHF 





APPELLE CHAR 



Ce programme est du type uttlitaire. 
II evite de tracer chaque fois que Ton veut creer un 
caractere, !e carre de 8 x 8 cases de I'instruction 
"CALL CHAR" et de faire ensuite la recherche de 
Tidentification du modele" ce qui est relativement long. 
lorsque !e caractere est complexe. 

Eric TROUILLET 

L'ofdinateur nous demande un choix entre: - Avoir I'ide nlificat Ion du 
module dun caractere. 

- Consulter la bibiiotheque. 

- Arreter. 

Nous avons un caractere a creer. nous choisissons loption 1. Pres- 

S' n sur 1 . 

L'ecran devient noir. pour cacher la construction de limage pendant 

8 secondes. 

Lorsque limage reapparait, eile devoile un carre de 8 X 8 cases. Ce 

care est en fait un rectangle mais il est la replique exacte du petit. 

Sur le cdte. des instructions apparaissent.Dans la premiere case, un 

carre clignole. Si vous voulez remplir cette partie. pressez 0, sinon 

si vous pressez N, la partie concernee ne se noircira pas. 

Touche REDO (FCTN 8): Cette touche sert a remettre le curseur 

dans la premiere case en cas derreur. 

Touche ENTER: Cette touche sert a valider le caractere en (in de 

definition. La validation ne peut se faire que lorsque le curseur n'ap- 

paralt plus sur l'ecran. done quand le carre est completement rem- 

Lorsque le dessin est rentre sans erreur, il faut le valider : ENTER. 
(.'image reste et l'ordinateur pendant environ 15 secondes, va deco- 
der le caractere. L'ecran s'efface et I'ordinateur nous donne I'identifi- 
cation de modele du caractere, puis, une representation a I'echelle 
normale. 

L'ordinateur nous demande ensuite si Ton veut classer ce caractere 
dans la bibJiotheque. Nous repondrons OUI, done 0. 
L'ecran s'efface et I'ordinateur affecte un numero au caractere cree. 
Nous voulons mamtenant consulter la bibiiotheque done option 2. 
L'ecran s'efface, 5 colonnes de 7 nombres s'affichent. Au cote des 
numeros apparlenant a un caractere classe s'aftiche la representa- 
tion de ce caractere. 

L'ordinateur nous demande si nous voulons connaitre Tidentification 
de modele d'un caractere. Taper sur la touche 0. 
Un N: s'aftiche. il faut indiquer le numero du caractere concerne. 
L'ordinateur nous donne Tidentification du modele du caractere. 
L'image de presentation de la bibiiotheque reapparait. 
oi maintenant, nous indiquons un caractere non classe l'ordinateur 
indtque que le caractere specific n'est pas defini. 
Le nombre de caracteres pouvant etre classe est de 35, il est large- 
ment suffisant, cependant pour te? «nurmands, il est assez facile 
d'agrandir ce chrffre. 

8 REM 33 f 



T\ 



99/4* 







11 CALL CLEAR 

12 CALL SCREEN (31 

13 FOR 1-3 TO e 

!4 CALL COLOR! I. 16,51 
13 NEXT I 

16 CALL C0L0R(2.9,3) 

17 PRINT ' ._._ — ._,,_._._._■■,'• 
- REDEFINITION • ":" « DES 
-■•i " - CARACTERES • " 

19 PRINT ■• .-.-.-.-•-•-•-•-'•, i,, »V0 
ULEZ VOUB'tll'l AVOIR L IDENT IF ICATEUR 
DU-:i" MODELE D UN CARACTERE" 

19 PRINT ||*2 CONSULTER LA BI&LIQTHEOUE 

"lll"3 _ARPETER":i I' 1 VDTRE CHOIX ?" 

20 GOSUB 302 

21 CALL C0L0R<2,2.1> 

22 IF 0-3O THEN 233 

23 IF 0-31 THEN 306 
2* IF QO«9 THEN 20 
23 RESTORE 89 

26 CALL CLEAR 

27 CALL SCREENI2) 

18 FOR 1-33 TO 40 

29 READ CAR* 

Z'j CALL CHARU.CAR»J 

31 NEXT I 

S2 CALL CHAR(47, "FFFFFFFFFFFFFFFF'') 

33 CALL CHAR148,"FFFFFFFFFFFFFFFF"> 

34 FOR A-l TO 22 STEP 3 

33 CALL HCMAPrc,2,;;,24i 

34 NEXT A 

37 CALL HCHAR(24.2, 34.24J 
39 FOR A-2 TO 23 STEP 3 

39 CALL '/CHAR' 1 , A. 36. 241 

40 NE/T A 

41 CALL 7CKARU,23,35,24j 

42 FOP B-2 ID 23 STEP 3 

43 FOR A-l TO 22 jIEP 3 

44 CALL VCHAR<A,&, 37) 

43 -1E/T a 

46 NEXT B 

47 FOR A-2 TO 24 STEP 3 

■-•.A.;ai 

4? »;E»T A 

30 FOR. A-L TO 24 STEP 3 
51 CALL VCHAfl I A, . ". . 401 

32 NEXT A 

33 CALL VCHAR<24, 29,39) 

■ 



36 ft-26 

37 S-2 

38 D-l 

39 FOR 1-1 TO F 

60 READ DT 

61 CALL MCHAR<S.R.DT,D) 

62 R-R-l 

63 NEXT I 

64 R-26 

63 ON S GOSUB 63,67,71,65.63.73.63,79.63 
,63.63,63,63.63,82,63.84,63,65.63,63,67, 
94 

66 GOTO 39 

67 S-3 

68 D-4 

69 F-l 

70 RETURN 

71 F-7 

72 S-6 

73 D-! 

74 RETURN 
73 F-6 

76 H-27 

77 s-a 

78 RETURN 
7? S-13 
80 F-7 

IU RETURN 

83 8-17 

63 RETURN 

84 S-22 
83 F-A 

B6 RETURN 

87 S-23 

88 F-7 

B9 RETURN 

90 DATA FF.OOOOOOOOOOOOOOFF. 010101010101 

01O1, 808080808080808, FFSOBOBOeOBOeOB, BOB 

oeoeoeosoeoFF 

9t DATA OIOIOIOIOJOIOIFF.FFOIOIOIOIOIOIO 
101 ,8',. 79, BS, 82. 95. 82,69, 70. 63, 73, 82, 69, 
96.82.69.68 

92 DATA 79.96.66,65,76.73.68,69,82.96.69 
. 7B. 84, 69, 82. 96, 79, 6 1.78, 79,73.82. 78. 61 , 
66.76,63. 7B.&/ 

93 DATA 7,12.17.22.27 

94 A-l 
93 G-l 

96 C-47 

97 FOR B-2 TO 23 

98 SOTO 122 



99 CALL f.EYIO.O.HI 

100 IF H-Q THEN 122 

101 CALL S0l/ND(100.*OO.OI 

102 IF A023 THEN 104 

103 IF 0-13 THEN 130 

104 IF 0-6 THEN 94 
103 IF 0<78 THEN 99 

106 IF 0-79 THEN 99 

107 0-0-77 

108 ON GOSUB I IB. 120 

109 FOR A-F TO A«2 

110 IF A>24 THEN 99 

111 CALL MCHAR(A,B,C,3) 

112 NEXT A 
11= A-G 
114 NEXT B 

113 A-A-3 

116 G-G*3 

117 GOTO 96 

118 C-48 

119 RETURN 

120 C-47 

121 RETURN 

122 FOR F-A TO A-2 

123 IF A>24 THEN 99 

124 CALL HCHAR(F.B.C,3> 
123 NEXT F 

126 C-C-46 

127 ON C GOSUB 118, 120 

128 F-G 



131 F-12 

132 P-3 

133 I-O 

134 FOR I-P TO 24 STEP 3 
133 CALL GCHAR(O.I.B) 

136 B-8-47 

137 Z-I*I 

138 ON Z GOSUB 14 1, 143. 143, ! 

139 NEXT I 

140 GOTO 134 

141 A»-STR»(8> 

142 RETURN 

143 C»-STR»!8I 
1*4 RETURN 
143 D»-5TR*I8> 

146 RETURN 

147 E»"STR»(B) 

14B H»-A»J,Ctt,D»!,E» 



149 1 

130 IF Y-lllt THEN 166 

131 IF V-1H0 THEN 168 

132 IF V-1101 THEN 170 

133 IF Y-11O0 THEN 172 

134 IF ¥-1011 THEN 174 

135 IF V-1010 THEN 176 
156 IF V-lOOt THEN 178 
137 IF v-1000 THEN 180 
13B IF Y-0111 THEN 182 

159 IF V-0110 THEN 184 

160 IF Y-0101 THEN 186 

161 IF V-0100 THEN IBS 

162 IF Y-0011 THEN 190 

163 IF Y-C'OIO THEN 192 

164 IF Y-OOOl THEN 194 

165 IF Y-OO00 THEN 196 

166 CP«-"0" 
16/ GOTO 19B 

168 CF-«--l" 

169 GOTO 198 

170 CPt-"2- 

171 GOTO 19H 

172 CP«-"3" 

173 GOTO 198 

174 CP«-"4- 
173 GOTO 19S 

176 CP»-"3" 

177 GOTO 198 

178 CP*-*6- 

179 SOTO 198 
1B0 CP»-"7" 

181 GOTO 198 

182 CF-*-"B" 

183 GOTO 19B 

184 CPt-"9" 

185 GOTO 19B 

186 CP«-"A" 
1B7 GOTO 190 

188 CP«-"B" 

189 GOTO 198 

190 CP»""C" 

191 GOTO 198 

192 CP*-"D" 
197. GOTO 19B 
194 CP«-"E" 
1"3 GOTO 198 

196 CPt-"F" 

197 GOTO 198 

198 CX«"C;X*t,CP* 

199 P-F»3 
ZOO F-F-12 

201 Z-0 

202 IF t< '24 THEN 133 

203 IF 0>23 THEN 206 

204 0-0*3 

205 GOTO 1 31 

206 CALL CLEAR 

207 CALL CHARMS. "O01C22222222221C" ) 

208 PRINT "L IDENT IFICATEUR DE HDDELE'lt 
"DU CARACTERE DUE VOUS VENE7"ii"DE CREER 



2)0 PRINT i ti "REPRESENTATION A L ECXllE 

-1 |-NORnALE-lTA8ri2>l* -»TA»I11 >! "u 

0'|TAB(12> I" " 

211 CALL CHAR1123.Cr«i 

212 CALL HCHA«I22. 13. I23> 

213 PRINT -VOULEI VOUS LE O.ASSEK Oc"^" 

214 GOSUB 302 

213 : c 0-79 then 221 

216 IF 0< >7B THEN 214 

217 PRINT II" TAPER 

218 GOSUB 302 

219 IF 0< '13 THEN 218 

220 GOTO 11 

221 CALL CLEAR 

222 M-M-l 

223 PRINT -C£ CARACTERE AuRA L E PttMltlll 

224 u-U-1 
223 PD-BD*1 

226 IF IK>1I TmEN 229 

227 T-T*l 

228 U-l 

229 Lt(U.T>-CX« 

230 CALL CmAR((1.L«'U. T») 

231 CX*-" 

232 GOTO 217 
27-3 CALL CLEAR 

234 PRINT - BIBLlOTHEOLC-t ! 

235 FOR K"129 TO 159 STEP 3 

236 I-k:-* 

237 J-K-3 
23B P-^ -2 

239 O-K-I 

240 PRINT Il-'Ul-"lPl--lOt--lMl 

241 NEXT I 

242 PRINT "VOULEZ-VOUS CONNAI TRE" I ! "L ID 
ENTIFICATEUft DE MODELE'il'D UN CARACTERE 

0?N ?-| 

243 CA-124 

244 CO-6 
243 LI-0 

246 RESTORE 93 

247 FDR X-l TO BD 

248 GOSUB 233 

249 READ LI 

230 CALL HCHARtCO.LI.CA) 
23T NCXT X 

232 GOTO 239 

233 CA»CA»1 

234 [F L102J7 THEN 258 
233 CO-CO-2 

236 LI-0 

237 RESTORE 93 
258 RETURN 
239 GOSUB 302 

260 IF 0-76 THEN II 

261 IF 0O79 THEN 239 

262 PRINT TABI22M-NI-I 

263 V«--" 

264 FOR 1-24 TO 26 
263 GOSUB 302 

266 IF 0<4B THEN 263 

267 IF 0>37 THEN 263 

268 G«-CHR»(0) 

269 vt-v»'.r-t 

270 PRINT TAB(I) lG*l 

271 NEXT I 

272 N-VAL (V*J-I24 

273 IF N<1 THEN 263 

274 IF N>33 THEN 263 
273 IF N>-l THEN 276 

276 IF N<-10 THEN 283 

277 IF N>-11 THEN 27B 
27B IF N<-20 TMEN 288 

279 IF N>-2! TMEN 280 

280 IF NI-30 TMEN 292 

281 0-4 
292 N-N-30 

283 G"30 

284 GOTO 293 
283 0-1 

2B6 G»0 

287 GOTO 293 

2BB 0-2 

289 N-N-K' 

290 G-10 

291 GOTO 293 

292 0-3 

293 N-N-20 

294 G-20 

293 CALL CLEAR 

296 IF L«(N,01' "" THEN 298 

297 LtfN.OI-'XARACTCRE NON DEFINI" 

298 PRINT "CARACTERG Nl "I 'N»l24«(i) i i i il» 
tti.O) : : i : TAPER ENTER" 

299 GOSUB 302 

(00 \f V \~ THEN 299 
JOI GOTO 233 
302 CALL KEVIOtOiHl 
'■■■ M H-0 THEN [02 
304 CALL BOUND I 100,400,01 
■ I rijftN 

■ CLEAR 
07 END 
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779 diti7,7 

7ee d*t*se, 110,234,234.234, ne.se 

7W d*t» 1 26 . 236 . 234 . 234 , 234 , 236 . 1 28 

eee d«t«36- 124,234, 1es.234.234, 124 

818 d«t« 124, 234,234, 196.234,124,36 

820 d*u234,e.e,e,e,e.234 

83e ditii3e,i3e.i3e,t3e. 130,130, [■;■■■ 

B46 d«t*e,234,234,234,234,234,e 

830 d»t»124,124,I24. 124.124,124,124 
860 d*t*e,e, 16,48,16,8,8 
870 d«t«234 , 234 , 234 , 234 , 234 , 234 . 234 
980 d*ti.234, 234, 234, 234, 234, 248.248 
890 dit»234,234.234,234,234,62.62 
900 d«t«62.62,234,234,234,234,234 
910 d»ti246, 240,234, 234. 234, 234. 234 
920 d«t»254, 30,6,0,6, 30, 234 

938 d*t«234,240, 192, e, 192.240.234 
940 d»t.«138. 130,130, 198,190,238.238 

939 d»t«238.238.199.19B.130, 136,138 
968 d»t«36. 124, 234, 16,16,124,36 



979 d't#16,84. 56,234.36-84, 16 

980 C-iriV>«d<l. 10>) Cl-lnt< rnd<7, 29 >?■ 
C2*liTK rr>& 7, 27 > ) if TC CI . C2 »'0».h*«9oto9 

990 Cl-Clt7C2-C2»7>&ut.PutC»,Cl.C2,3r« 

'l909 forH-0*.o30 

1010 Fi-int<rrtdr6.29>) B-tfl+.<rfid( 6.28)) ! 
ifT'»,B.'> / 0*.h»r.9o*.ol010 

1820 T'R.B>7 R-fit7 B-BT7 o-jtPutC«,fl.6. 
1 

1030 nextH r*turn 

1940 r*atorel070 

1036 r»idfl,8' lffl-0indB-0then9o';oI099'el 
>*9otol060 

1060 T<Hy7,8'7>8'0'jtPtitU*.A.6.3 9otol9 
30 

1979 dit.i49,217,99,217, 140.217. 189217, 
189,21,49.21.49.210.98.210.148,219,189.2 
10, 189, 28. 49. 28, 49, 283 ,99. 295, 149, 203, 18 
9.203.199,33,49,33 

1980 dit*42.203, 103.293. 133. 293. 196.203 
.196.33-42.35.33.293.112.283, 126.203.293 
.203. 293. 33. 35. 33. 28: 203. 119, 203, 210. 203 
,210,35.29.33.21 .293.217.203,217.35,21,3 
3.14.293.224,293.224,33.14:35.9,9 

1990 Plo*.l92.220.41,20,2'r-«t-jrA 

1100 Piu«*3 MiPe 

1110 CfiKPvtft*. 207.218.8 output"*". 18.21 
8,1 outPufDtftlrM "o-js r* )<to*r <0-N) ?■ 
.30.219. 3 cur-ot- 205. >ie P«nl P«-l nstrV 1 



> Prict.iKr*'- ».c-'P»t-32> lfR*""o"th*Ylfl©tO 

1139 
1120 ifP«-' , n' , *h«n^tol328 plir9otOlII9 
1139 outPutW. t?3, IBS, a outPut"*". 30,18 

5,1 QutPut'HtlWI ror,dl*.lon« ' 0-M ' ""\42. 

195.3 cjrsorl93. 185 P*-in-tr»'l > Pent Pr 
lntchr«< isc'P«>-32> ifP*-"o"ther.r.jr.l250 

1149 ifP*-"r>"th*ri^toll59 el*esotoll39 

1159 Pot'elFBA.8, 168 runll88 

1169 ulPe colore. 1.2.6 brl9ht0 

1170 outPut"tion*i*«rtt«",e2.2is. i<out 

Pgf'Tff ttt", 92. 293.1 'OutPufflSPIC 

". 186,283.2 <M*,Put"tt*titt*ttttt".82, 193 

: I 

1199 Y-Pe*r'tFBM9> ■o«jtP- J tEl,97,y,0. O utP 
Mft". 13.V.1 outPuf'Vies (|-7) -»",23,Y,3 

El«-liMtr*^l >El-v*KEH> oij.tPut.El, 97, Y 
,2 lf£I'lorEt>7then4otoltee eliePoVetFBA 
5, El 

1198 O'jtPutR*.193.Y-20,e outPut"»",l3,Y 
-28,1 outPut" Joystick ou Clivl«r '. J-C J ? 

",23,Y-20.3 R«-lnitr*<l > outPutcrir*' »ic 
<R»?-32>. 193,Y-29.2 ifP«-" i"th»r.9otol230 

1200 ifM""c"trientotoll90 

1210 outPu»."f'M3,Y-40.1 outPut"C»uch» 
",24,Y-40,3 ■Kl»-lr.»tr»-:i J-Kt-»ic(KI«)-o 
utPutKl«,76.Y-46.2P0k»tFB91.Kl 
1226 OutPut"*", 13.Y-6e,loutPut"Proit» 
■ " . 24 , Y-60 , 3 ■ K2i- 1 n*tr •' 1 > ■ Y2~**c'. K2« > • o 
utPutK2«.76.Y-60.2 Pok«lFBR2.)'2 



1230 outPuf't", 13.Y-80.1 'OuWufHtut 
".24,Y-80.3 r'3*«ir.»tr*M > K3-*ic'r'3«>o 

..r»PutK3t.76,Y-80:2 P^^*tFBH3,K3 
1240 outPut"*".! 3. Y-iee,10utPufBn 
-,24.Y-10B,3 M«-lnstrt< I )>K4-ttCK4f ) 
OUtPutK4«,76,Y-100,2 ■ Pok*tFBft4, K4 
1250 TH*chr«<192) T2t-chr*' 193 JT3*-ch 

r«C194) T4«-ctir*<193vEH-chr»M96 1 E2«- 

chrf. l97>H«-chrt' 198> \'%-r_hr*-\ 199jM. c 

hr»'200> E»-crir-»<29i> 

1269 Clt-chr*':282> C2*-chrt< 203 .■ C3»»ch 
r%< 284 > ■ C4*-chr 1' 203 >'0I »-cr,r«r 206 > ■ 02»- 
Chrt< 287 ) 03»-chr«' 298 ) 04«-chr»< 209 ) ■ C» 
-cr.rt< 2 10 > ■ 0*-chr*< 2 1 1 > ■ P in ■ 1 1 

1270 wlP*brl9htl ■cfi«T':50.3e>'Et-P«th(fc 
FBR5> Sl-0 E0-0 2-10 

1280 forX-7<>o231iteP7<outl>utOt,X,224,3< 
T:'Y-7,32'-6 outPutOt.X. 14. 3> T<X<7,2>-«. n 
•xt 

1290 forY-224toI4it«P-7 ogtPutO«,7.Y.3> 
T< 1 , Y'7 >-6 ■ OUtPu tO«. 231. V, 3 T< 33. Y'7 )-6 • 

1300 9o»ubl940-Plotll.220.4l,29.2 outPu 
i"S ■",18. 213,1 outPutSl,24.213.1 Plot 193 
.220,41.20,2 Plot 11. 31, 4 1.20, 2 output "V 
".21.24,1 outP 'J tEl. 28. 24. 1 Plot 193. 31. 41 
, 20, 2outPut"T ",202.213. 1 outPu»"L "19 
8.24,1 

1310 «o»ubl000 9otub99e output "C "114. 
213, I outPutC. 129.213.1 9otolB0 

1320 ulPe Print Per.2«fld ■ 
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POMMES'.Un graphisme super pour eviter de compter sur ses 
doigts, par Roger FOURNIER. 

ACIDE BASE,pour tout savoir sur les reactions et les PH, par 
Gilbert ARRIBET. 



POMMES 



Sur I'ecran, au milieu d'un decor, apparait un bon- 

homme arme d'une lance. 

Au signal musical il se deplace... 

Le joueur doit appuyer sur la barre d'espacement pour 

que le bonhomme tire sa fleche sur la bonne pomme 

(celle qui contient la bonne reponse a la question 

posee) 



Les niveaux de difficulte n'interviennent que sur le temps de depla- 

cement du bonhomme. 

Lorsque le compteur est a 0. celui-ci tire sa fleche qu'il soil ou non 

sous une pomme, sans qu'on le lui "demande*. Au niveau 1. il fera 3 

passages sous les arbres. au niveau 2 , 2 ; et au 1 , 1; il faudra 

calculer vite si la reponse est contenue dans I'une des 2 premieres 

pommes. 

Le programme est largement commente. 

En enlevant le a/enerique, le message de fin et les commentates on 

doit pouvoir I'utmser sans extension 1 6K. 
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IS CLEOR -.38 £185 B0X< I2-C,8-C>-'£5+C, 1 l*C)*»">8,e «B8 'MBMWfiRT I £••♦•• »t 

188 GQSUB 1888:'*a*« pf«p*r*tion £190 MEXTC,S 4 ^Si '********i******* ***, ***** **** 

290 COSUB £eeei-»...9e««r 1 ^ J e 2286 LOCATE ?,15=C0L0R 7: PRINT-PREVISION 4993 6C^9lMF-ietC05UB 41386 ,,._... 

lee coIub IISS ■"•;i?fieh"« 22ie SS ie,i6,».C0L0P 3:r?wrt> 3 zr SUB3489: gosub 3708 : -<;kc: :E: notibpee- 

409 tOSUB Si'WW?«TI£ FoirnUr 1984- 4828 C0SU8 40ieei'BELfiMCE DES N0n8P.ES 

"■;" ,""= ^^:- .-" 2££9 FOP I-! TO 898:NEXTT 4825 COSUB 3M88.G0SUB 36338: 'HUSIC 

±i* :0=!JB 6090: t# 3 t eour rt.outr 2230 PLAY CtfPETURN 4938 GOSUB 402e8.'P.FF 0UESTI0N 

799 IP PP.? TSEN 259 £580 '*M»«H0IX NIVEAU....... 4835 GOSUB ""8= ; COULEURS 

i>.> ;-.-._.-.. -^ 33 t'....» e s Saa€ -.* .■-.-. £510 3CREEMB,0,aiCL8lftTTRd 8, Is COLOR 1,3 4840 COSUB 40388:-»rF REPOHSEJ 

9ee EMD iLQCATE 6,2,e:PPIMT-CH0I5I33EZ VOTPE N[V 4847 "•*•*•'"***"*****"**"!!"!" 

1908 ••... initialisation Eftu=- j*« ^"" c °^ c .;. - J : E -!! I! "I"!!!!! 

1828 DETGR«BJ*255,255,255,£55,£55.£55-£ £528 FOR 1-1 TO 3= C0L0P1.2:l0CaTE 6,1.6, 4e4? ••*••«♦*•♦ * 

55, £55 0:*TTRB !,9:PRINT"NIV£flU "JI 4838 XB-8 ••OtP'l 

1838 DEFCR.."!,. 235. 255, 127, 127.63. 63-15, 2538 ATTPBS, 0: LQCP.TE 8, I •&♦£, 9: COLOR 7,8 4033 CONSOLE 8,24,1,9 

7 : „i!». !,«GP*'1> JPP1KT-P0INTS PhP PEPONSE JUSTE! *1 1*18 4868 FOR r-TC<D) TO 8 STEP-) _-_,„. 

IB4B D^CPS 2-3,13,63,63. 127,127, 2 33. £5 2549 LOCATE 8. I .6*3, 8= C0L0P3: PP1 XT ■ T«W 4870 "SUB 48688= '•••"O&ULE KPLAC E*ENT 

^•oft«(P,ii-e«(P, d«r«fl«yionl*;" "l"*«OIWl** 4B88r-**INVEri:IFI't*CH'PI<32> THEN G05U 

?e5* dIfCR.73%192,248,252,252,234,234,2 £558 PRINT- — B4M08 :C0SU6 41008 ELSE «£■'•«"" 

:3.235:AP«f3.-GR«(3J — -' ,. = , ' i" H 

1968 DEFeM(4>-255,2SS,234,£54,252,232,2 2568 NEXTI 1 !J !J E ?J ^ U ?ur» S i,« 

49, l?2:«R*f4i-CP*'4 ■ 2578 COLOR is LOCATE 28, 9, 9: ATTRB! , 8!PPIH 4898 IF TE-1 THEN 4138 

tl78 r3 E FGR.<5-..i*i?i, 1,1,8,62,233 T'99" .LQCATE2B. 13, 8.PRINT-78-. LOCATE 28, 4892 I F jt - K H COSUB 4 !688. N-XX-l . COS 

:939 DEFCR*<6>-12fl,I28, 123, 123,128, 9,126 21, 9:PPINT"48" ....«.,.,„«., *I1S , SrSrr ii S.attob i i -ppimtuSinC PU 

<£53 25 90 C0L0Pl,7iL0CfiTE 9, 23: PPINT " TAPEZ . . . 4993 LOCATE 19,5:ATTPB i , l . pkiniumnu ru 

1999 PHf-GP«'5,*GP*'S^ 1-.2 O" 3" Jil^IJy? t 

!i!S SggSSSia:!d:!*ia,i«..«,. "IS ES.!M.??V.<,» ,*. .,.. S &^,..,. s »|ug e «..§..,.™§ „;.«• 

20,189 2630 GOSUB 38193: NE'.T liPLAY C» ! ' r "E-l THEN 413B ELSE G05UB 41t,B«.u»^/. 

1128 P0fl»-CRf^7v»CP*(9>*GR*'6^CRf'8- 2648 GOTO £609 liiS Jn«MO ji tan: rn^uft 4i?flfl-G05UB 41380 

sasEgK:'-"- 8 '- B ' i7 ''"'' ,r -'''- , i?!:s;?aTJ.':K.!i , £.?iW!!T!!.Rr, . . p 5 2 E ° e 
i^sasaEiR""' " 2 - ' 36 " M -"- bj.'JtSS'esi.ktu™ » f t » n ::.... ... 

i^.^!^;;:' > • ,8 '• 57 ' 6^ • 34 • 3 " 35 • ,^ • 4^ 5iss :::::::;;?;;:""::::::::::::::::: U| : : -is:::::::::::::::::::::: 

^fssss;!?^" 7 -'"' 28 ''"' 63 ' 68 '" 6 iss ™sss isss::^ sag 01 ^4ts , i«r;:u'.?iSJ8 !-!;sss;' 

! 8» Stra«<l4>. 157,. 16,28. 29. 23, .7.16.4 3868 PETURK i!SS.r5, JikmIi^ 1 '■"■ P "" T 

?;!fSE^!tL.2 3 ...2.,9,e,.,8,e,e !5! £Sl 'V& .Sfr " 1 " ? . »; » 5-i " ? .LOC ? T| ,8 2 8, 

12N DEFCRX17,. 127. 62. 8,8,8,8,8,8, .B.-G 3128 RESTORE 3888 ?m?SeJt T 

Sii"^SiS MH . V ,< 8,48,48,68 ^ i « ^ ,- 2 ^^l^^S^" B ""'"' 

u;s'^i?;„.i87,,7, 5 ,,., .,,,8 - ,; !?5is! ) -i-?,^cif { 4 ;;.;tJtJ,! < '^?Rii{ 

!'5 K ^3Bg i *.M. H ,u.. H .i M ,in, ° V ' : ' 8M "" 3!M 5?| E i:i E!i{ra!.!;;.ST.;!.I!'. 81 "'" , - v 

!!?r;E^«;52;:^3,.,7,,6,48,48,4„48,,8 R i 4,E8«7E „.***, «.<« ,878 JJJJ., gggg gl, .".V^Pf, 

Sgiii?--'''--—"' 1 R^sisiisrK-'a*. i 'F;: 7 ;:::;::::..:::: 

iis? H T^:^;2i?- ,7 ' !7 ' ,7 ' ,26 ' ,8 "' s " mi isi?'^'"- 2 "' "■''" {« : iiliSj:::::::::::::::::: 

1278 I>EFCRl<25,-14t,186.,86.146,,i'.5f.5 3318 7-14 6el , L0C((TE s . ,;,ei COLORI 'RTIRB1 . 1 iPRIKT 

ffirS%p MM .« bM .n.«,«pn. H l c u K;V;coloj j,4.p;.-tpo» ^u^.p.j.PPi.r- «■ 

[srsgg8 M »«i.», 1 »,.».«.»».i».' g i ;.!:;.:, prUtpp. 68.8 .r.pjj^-E- 6,88 ,. then mm 

»t|-S', 5 " S .••.8" r ,C0L?pT"a"" , ".22..,PP 6,98 ,»P«.PE. »,». If A--I THC PL« HK 

!IH TW;>lB!tc8)"«.Te<J>Ml.»l<t--M- 3«8 "Jure.,., RET*» 61,8 IF 8,128 THE. 6268 

.8SIL1604801 ■ • ■-;l>.4„. . '5i?.;95ri?i?i; !? .Lu^~,t ,» pp..-,,- 1HE« 6268 

P ^.1 782:S"3*1;P' 8 '= : 'l',„E 'Tt.,L 332. FOR 1", '0 iB.KKiNt , . nt,. t>«n pp.fPCTURN 

,378 PE5?0PE 3828, FOP 1-lTOJlBM ■-' ■ 3338 fCtl|R« f|l| J P .»,,[™,» 

iSBfS-TTOf-L.WIM-IH.IDOl- S{" I »«- g«|S i'.KSJSrf'ST " """"" 

I12S Htur?-" 01 ;" ' r .... KB §&^,SRB5 ,., „ 3 SK Sffl BB! .. =«, ■ - 

,000' CtKERIOUE RiS 5SI 57lf IJ3 THEN ?"l5 .828 BOXF < 12, 3 ■ - ■ 38. , : ■ 

IKS St?a c 7rT!!i'!£o!.T. ..... SIS £ & E T '&;"coi!oR 1 T«i«..u .« .... cou.r2.».8,fop ... » », 

a>;28 BO/T< 12,3 ■-'£5-11 >"•" T . 8120 NE^T I 

ips sauss.,. ,, -o ««. - ^^jsaftrgiaKi^iTii. Kg saua ,«;»„,,., ,„ 
KSSSi'.*. ??:!;s;l":,,i;.: :in;.:£, l Uf,7i?.i;?:I nil |S"t ? ; ? ?1".™.c ■ . 

£138 UNHASKICOLOR 3:<-TTPE 1.1 7 if 9 2. 3^ 2 1 . 3. 3, 22 - 3. £ . £4 . £, 2. 26. 1 8188 BO/' 1 I -C • ■ -C 36'C. . £•- 

216B L0CATE13,I8,0:PRlNr-P0nnES- A.M, 1, 3,ht, I, 2, 33. 1 . 3. 35. 2- 3, 36, 3. 3- 37 HY-03A8LI3T300- 

2163 ATTPB 8,8iPL»Y E« ' 4' t ,- - 4 . 7 ; . - . 7 . i 7 . 1 £ . 4 . 1 808 8183 BOX' 1 2-C, B-C ■ - »*■ -I 1* 

2179 TOP 5-1 TO HFOP C-8 TO 6 ',1„ '* ' « ., ,, , ft -, 4 8198 NEXTC 

£188 B0X-n-C,7-CW26.C,I2.C>-«*.CG:fL 3528 OATA 5, 16,^1 , 30.-4 32ee L0CflTE ,23:PETuPrl 

-Y-05A8L13T3D0- 3995 '•••••••••*•*•••••**•• 
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RESTONS SIMPLES ! 
Cette page educative etant 
reservee aux ense>gnants. 
lequipe de Redaction re 
portera aucun jugement de 
vaieur quant a la quaiite 
pedagogique des program- 
mesouarticlespubhes Les 
critiques emanant d'ensei- 
gnants seront toujours les 
bienvenues elles seront 
publiees et transmises aux 
auteurs concernes 
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stages LOGO -.une proce- 
dure speciale Hebdogiciel. 

LOGO repond present, grace a GREPACIFIC (association specia- 
liste de I'enseJgnement et de la rfillexion autour de LOGO. 51 bd 
des Batignolles, 75008 PARIS), des stages de formation aux lec- 
teurs d'Hebdogiciel (25% de reduction sur les prix de base!). 
Une occasion a ne pas manquer. 

STAGES PROPOSES PAR GREPACIFIC. 

1} ORGANISATION 

Ces stages ont une dur8e de trente heures (cinq journees de six 
heures) et couvrent les cinq micro-mondes classiques (nombres, 
texte, tortue. musique et lutins) 

Les materiels utilises sont divers, pour permettre a chacun de de- 
couvnr les ditterentes versions de LOGO qui existent actuellement 
et de se (aire une opinion hbre sur le materiel et le langage par une 
manipulation personnelle. Aucun pre-acquis theorique n'est de- 
mande (ni en mathematiques. ni en intormatique. et I'experience 
prouve qu'il vaut mieux ne pas avoir ete "deforme" par un apprenlis- 
sage prealable de Basic) ; touletois. il est vivement conseillfi d'avoir 
lu. de maniere attentive les carnets d'Helene. fascicules 1 et 2 (edite 
par GREPACIFIC) ou les articles LOGO parus dans HEBDOGICIEL. 
avant le debut du stage : cela permet de tirer un plus grand profit du 
travail sur les micro-ordinateurs. 

Les stages sont essentiellement consacres au travail sur machine, 
dans des conditions analogues a ce que sera le fonctlonnement 
avec les enfants en classe : Lapport theorique magistral est tres 
reduit. au profit d'une libre exploration par des projets de groupes. 
Une part importante du stage est consacree a I'utilisation dans un 
cadre educatr), avec comple rendu des recherches et experimenta- 
tions en cours. 
Les stagtaires des annees precedentes qui on! eu la chance de (aire 

Sjiper leur lieu de travail d'un (ou plus rarement plusleurs) postes 
GO ont tous 6te a meme do demarrer des projets avec leurs 
el6ves. II est done indispensable d'avoir deja une certaine pratique 
pedagogique (dans le cadre scolaire...ou familial) C'est dire que nos 
ateliers ne sont pas destines aux enfants eux-memes. 
La participation a I'atelier (non compris les frais d'hebergement) est 
de 1000F. 

2) LISTE DES STAGES : 
LILLE : 2 au 6 juiilet 

MENDE : 2 au 6 juiilet (hebergetnent possible a I'ecole normale de 

Mende, pour une somme modique de 360 F.. comprenant le loge- 

ment et les 3 repas de la journee). 

MONTPELLIER : 2 au 6 juiilet. 

80RDEAU : 2 au 6 Juiilet. 

OUIMPER : 2 au 6 juiilet. 

PARIS ou proche banlieue : 9 au 13 Juiilet. 

DORDOGNE : 30 Juiilet au 3 Aout (quelques places region de BER- 

GERAC) seulement, il est demande d'avoir deja manipulor un peu 

LOGO, quelle que soit la version}. 

ALES ; 27 Aout au 1er Septembre. 

LILLE : 30 Aout au 4 septembre. 

3) INSCRIPTION : 



Le bulletin description est a retourner a GREPACIFIC. 51 bid des 

Batignolles. 75008 PARIS. 

NOM: 

PRENOM: 

Profession: 

Adresse: 

Tel: 

desire minscrire au stage d'lnltiation a lapproche LOGO qui aura 

lieu : 

du ,au, 

du .....au 

Ci Joint un cheque de 375 F.. a lordro do GREPACIFIC. dans le cas 
ou le stage seralt annulfi faute dun nombre insuftisant de candidats 
(moins de 6 inscrits). lo cheque cijoint me sera restituo. Jo veraerai 
le solde soit 375 F., a louvorture du stage, cost seulemonl dans le 
cas oil je ne me rondrais pas au stage que GREPACIFIC aurait la 
faculte de garder mon acompte. 
Lu et approuv6. 
Oate et signature. 



(a retourner a GREPACIFIC. 51 bid des Batignolles 75008 PARIS) 
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la page pedagogique 



to 



l :■ I ! I 
IttH 

SH1I 

■■:■•■' ■ 
30100 
301 :o 
30120 

nm 

30200 
30210 
30220 

:>:■_;<? 
30300 
HOH 
30501 
30710 
30520 
30530 
30590 
39894 
3*900 
39901 
39910 
39915 
3991' 
39920 
39930 
39940 

msi 

39960 
399^6 
39 99? 
MM 



PS 



K-1MT' BNC'tMl "Ni 
RETURN 

; m : SI E CLfl 



i-imtcYn ir ■ 



[*•< 



HEN 3022P 
! RETURN 
PLAY C»:Rt"TURN 

Er- BOHHOnnC •••••#•••••• i 

'tUHIIMHHIUIINHUNNHi 
ATTRB 1.HL0CATE H* 1 , 22. 0= PRIN* 
LOCATE u-1.20.0 tPRINT- ■ 
LOCATE w. 10.0:PRINT- • 
ATTRB 0.0:PE T ijPx 



iOIX CQULEURS'i 



' ■•■• 



WW' 11,7 -<a3»8>'7'»l#3 

BOXT< I9,4>-<22,3] ' - : . t - 

RETURN 

RESTOPE 3920 

Y-14IF0R 1-1 T05 

RE«C XI IF 1-4 THEN Y-I3 

LOCATE »i. i ', M.M :■":*-:■;- 

NEXT HSETURN 



•••at CHOI! Pt0ftBK!E3»e« ■> 

«•*•*••••••••••*•••■• .......... 

0010 MI-9:G0SUB 30100 lA-xiGCSUB 30190: 



IMSI 


Tl 1 >*Hi6 




40030 


»s T. 1 ) !N1>]0O 




40C40 


fop i-a to 5 




49030 


cosue 30100'!'' ■! i-i then 4ees< 


ELSE 


r< 1 ■■:. 




4(?0t0 


NEXT IlPETUPM 




40100 

40101 

401 10 


FOR I-I TO 10 





<Oli0 


m-5tNa»n<;o3uB 3eioom=-:t 


cosue 3( 


100iN' 






40130 


(,-T<».:T(n..T N':T'M--* 




40140 


NEXT MfiETURN 




40159 






40200 


'••••••AFT QUESTION •• 




40201 


m<«iM».»ti<i 




40210 


ATTRBI.HCOLOR 1. 3 1 LOCATE 


to, s, en 


RINTA! 


*X-iB;---:iC0LOR 5,-jPPINT 




40220 
40299 

40300 


«TTPBB.O:CETUPN 




'••••••APT REPOKSEtl««t« 


••••••• 


4030: 


......................... 




40310 


RESTORE 3920 




40330 


Y«14:F0R 1-1 TO 5 




40340 


IF |)3 THEN Y-13 




40345 


READ X 




40350 


REI<I>«MEC'*'3TRt - ; ,2,a 




46355 


LOCATE K+l»YfPftIKTRE«l I' 




40360 


MEXT I 




40370 
40599 

40600 


RETURN 














40610 


IF XB-0 THEN DEP-1I' ■•DEPL 


VERS M 


0ITE 






46620 


IF XB=35 THEN C>£R*2:'atOEP 


GAUCHE 


■U'sjS 


ON DEP COSUE 49700,40350 




48640 


RETURN 




406 ■? 9 







40^0-3 


■ •«»4»«DE s L»CEf1EflT DRCITE* 


• 



01 



i PLAY At :ATTRE 1. I 

i locate xe,aa»0tpRmTCHR*(3£>*eoi» 

i LOCATE XB,20.0:PRINTCHR*<32>*HDi ■ 



la page pedagoEE 



40750 XB-XB*IHF XB34 TH£X 40510 
40760 PLAY St 

40770 LOCATE X8>20>0>PJtINTCHRI 12 •-• i 
■«0--0 LOCATC IB,22»0iPRINTCmR< 33 ■■■ t 
49610 RETURN 

40849 '« • 

40830 '••••••DEPL«CEHEN' U '-■ 

4883] ' ••••••• 

40855 PLAY AISATTPB Id 

40008 LOCATE B r 22.0iPRlH1 BClfKfRJ J£ 

40070 LOCATE XB.20.etPRIHTHGI»CMPI "- 

49900 xe-xe-niF kb : then 49=50 

40910 PLAY Bf 

40920 LOCnTE "B.22.0:Ps-:nt EG2I»CHRI " : 

40930 LOCATE c.20.;-:is:>i-w:i-'-if '-' 

40958 RETURN 

48999 'Mi • 

4:000 -•«•••*-:;***• * «•••« 

41005 IF &EP-1 the* - B*2i F- -■■I 5 

E XX«XB:XF.X**1 

41008 COSUE 41045t COSOE 410!0iGO;UE 4I5B 

8:PETUPN 

41010 FOR 1-1 TO ? 

41028 ATTPB1. It LOCATE . ;;.e:o»;NTSTt< J 

41030 LOCATE XX,28f8iPRIMTHT«<I) 

4I040 NEXTI 

41042 RETURN 

41045 TI-0 

41B59 FOP I-I TO 10::- F-P(l THEN T;*! 

JGOTO 41080 

41060 NEXT I 

41070 IF XF<24 THEN YF»13l ELSE YFsjs 

41075 RETURN 

41030 IF XF<30 THEH lrT-17 EL5E YF-J6 

41990 RETURN 

41099 'HtMMMtlHHM 

41180 ' TE -■- 

41110 RESTORE 3920 : FOP 1=1 T05 

41120 READ X:IF XF = »1 THEN 41130 

41130 IF XF«X*2 THEN 41150 

4II40 NEXT l:TI=0:TE=O:RETURN 

41150 IF T(I)-P THEN T£=< ELSE TE-0 

41190 T1-0:RETURN 

41200 '••••••BON TIP. ..CHUTE P0nnE««« 



41210 ir xr,J0 THE" YP-13 ELSE YP-14 

41220 FOR C--YP TO 16 

4 1225 LOCATE PX : ■•:.0-i:fRINTPB» 

41230 LOCATE PXCPfCtPR'HTPOIUtLQCATE 'X 

'I>.C-i:PRINT CHRf.'72>*PHI*CHP«'32' 

41240 LOCATE PX<I ..G-21PRI""- 'tUKXI 

41245 LOCate: -■ . ,-:: = *;NTPtifl»iLOC«TE 

- Cl),GlPRIMT CH*» 32>*PH«*CWt»(3C>iATT> 

8UHL0CATE PX'n.G-UPPINT- 

41250 LOCATE PX<I>-l>22iPltINTCMM<32>*K 

•■LOCATEPX<] '-l,2tiPRIIITCMtff<32 ■--' 

41260 FOR J= r TO :'EP-1 

41265 PLAY AS 

41270 ATTPB I.IILOCATE M.SZ: PPINlBC3t*CM 

P«<321!LOCATEU.20!PPINTHR»*CH»< ] 
TEu-I.ISiATTBeO.O'PPlNT POUf '(LOCATE 

U. 17IPPINTPHI*- ' 
41275 PLAY Bf 

41290 ATTRB l.ULOCATE H. 22! RPINTBC4 l-CH 
P»(32).'LOCATEW.20:PPINThRI*CHPI 7. : 
TEH-i.l8!ATTRBe.e:PPINT P0n«»- '■ LOCATE 

U. 17:PRINTPH(»* ■ 
41298 NEXTUIRETURN 

41300 '•••••»"F- SC:P£»444t4»»«l««».41 

41350 LOCATE 34, 8! ATTRB1 . 0! PRI NT USING •• 

••■iSC 

41360 SC«SC*I0«C' 

41390 ATTRB 0,0!RETUPN 

41400 •••••••EFF FLECHE»4» 

41410 NF-NF-1IXF-I0-NF 

41430 LOCATE 23-XF.O tPRjNT' * 

41490 RETURN 

41500 '988M*MFLECHE«M 

41510 FOP C- IS TO <T STEP -1 
41528 ATTRBO. 1 : LOCATE >:F. C s PRINTFI 
41530 'FOR TX-I TO 30:NE:' IX 

41549 LOCATE/F.C:PRINT' ■ 

41550 NEXT C 

41555 LOCATE XF.CiPF I WTFI 

41390 ATTRBO. 0SRETURN 

41600 '•••AFF REP 

41605 L"LEM(STR*<A>+STRi ;■•- * > 

41610 ATTRB I, li LOCATE I2*<2«L .3-9:PFIN 

TPICHTiiSTP»..P^-2'' 

41620 ATTRB 0.8:RETUPN ■ 




ACIDE BASE 



La fofce d'un coupfe acide-base est caraderis6e par le pKa du cou- 
ple: ptus I'acide est fort, plus le pKa est petil; pour un acide fort en 
soJubon aqueuse: on prendra pKa= 0, 

Au coure de la reaction acide-base entre un acide (faible ou fort) et 
une base forte (par exemple la soude), failure de la courbe donnant 
te pH de la solution en fonction du volume Vb de soude verse dans 
un volume donne Va d'acide, est tres caracteristique de la force de 
laode, done de la valeur de son pKa. 

Ce programme comporte trois parties donnant les courbes 
pH(VbAra): 

- Pouf un acide faible, de concentration molaire Ca donnee, dont on 
peut choisir le pKa. 

- Pour une serie d'acides, de meme concentration molaire Ca et de 
pKa variant de a 6: influence du pKa. 

- Pour un acide fort (pKa= 0) a des concentrations molaires diffe- 
rentes: influence de la concentration. 

Le volume Vb est calcule pour des valeurs donnees du pH. e'est 
beaucoup plus simple que de calculer le pH pour Vb donne, dans 
ce cas il faut resoudre une equation dutroisieme degre! Une seule 
formule est utilisee tout le long de la courbe et pour toutes les va- 
leurs du pKa. 

Le sous-programme POINT donne un trace precis des courbes en 
rnserant chaque point a son emplacement exact dans le caractere 
affiche. 



250 ■ 

2b0 CALL CHAW! 139, -&1O1O10701O1O10101O10101O1010107QIO101010101OIO1") 

270 CALL CHAft<142,"FFBOBOBOOOOOOOOOFF") :: CALL CLEAR 

280 CALL TEXTE it CALL CHOIX 

290 ■ 

30O ■ •* AXES « 

510 ■ 

320 SUB AXES 

330 CALL VCHAAI4, 6, 141,191 :! CALL HCHAR (23,7, 143,21 1 ' trac* dec «nifs 

340 FOR 1-0 TO 6 :i CALL HCHAR (21 -3»1 ,b, 1 39) : : CALL HCHAR (22-3- I ,6 , 1 40) t i DISF-Li 

Y AT(21-3*I,l-(!<3) )SI IE (2- ( 1 >4) >i2»I*l u NEXT I littrquig* d> 1 '*W« v«rtit*l 

330 FOP I-O TO 2 J] CALL HCHAR (23,8* I • 10, 142) : : DISPLAY AT (24 ,3*1- 10) 31 ZE <2> I I 

J l*XT I 'urquiqr de l'an* hortrootal 

360 DISPLAY AT ( 1 , 4)SI 7E (2) : "pH" i: DISPLAY AT (22,24) SI IE (5) : "Vb/Va" :: SUBENO 

370 ' 

•• POINT •• 



14-KA* 


H-H»H) )/ 


:,W 


,-.H)-(OC*H-10- 


-14»H-H>) 






T 

NT(XD) 


II Y-1NT 


:ydi 


t : IF X<: 


1 OR 


X>32 THEN 


SUBEX 




■c r an ; X • t < 


:cixirdDnn«» 






l-(XC>4 


)-XC) !XCl 


■ b ■ 




poin 








8,4,2, 


1 














i point 


d*n« )> 




•ctvra 










c-r-ct 


mrm d>ja 


tn 


plac* »n 


X,Y 


(c*r»ettrt *. 


ici 



KC/4) .:it 






390 ! 

400 SUB POINTIPK,AC,CN,J,N) '«*f 

410 J-J*l :: KA-10"-PK :i PH--LOG 

I RM-INT(100«PM)/100 :: PHQ-PH 

420 H-10--PH :: BC-AC 

430 VB- 1 O- ( KA- 1 0-- 1 4«H- ( AC-KA- 1 O' 

440 IF VB>22 THEN SUBEX IT 

430 IF J>1 AND VB>9.93 THEN SUBEU 

460 XD-VB+8 it YD-23-1.3-PH ti X- 

IT 'XO at YDiccaordonne*^ du point 

470 XC-INT( (XD-X)-B*1) ii VX-2' (4- 

t*r*|VX cod> ftmx sOmc 1 *■* 1 du point 

400 X«-STRXVX> 

490 YC-INT( <YD-Y)-8*I ) 'ordonnw d 

3O0 CALL GCHARIY.X.CA) !l«etur« du 

■nl 

510 IF CA032 THEM 390 

320 A«-RPT*(-0-,2-YC-2- 

•~ <uqu*l «mt aloutB la 

330 CALL CHAR(CN,A») 

340 CALL HCHAR(V.X.CN) t t CALL SOUND ( 10,440,*) ' 

530 C«-CN*l-2-(CN-39)-(CN-fcO)-(CN-66)-2-(CN-71 

107)-2-(CN-llO) i I IF CN-4& THEN CN-3B 

360 IF N-l THEM CM-CM- <CN-fa3) - (CN-63) - (CN-69) -2- (CN-7B) - (CM-B2) -2» (( 

370 IE CNM3B THEN SUBEXIT 

380 GOTO <>SO 

390 CALL CHARPflT(CA,AA») ■ idant I + icat Ion du caractara ancien 

600 "dan» lti 6 llgna« sul vanta*: 1 nsar 1 1 on du point dan» 1'ancian c< 

610 XA«-SEGf(AA»,2-YC-l-<XC^4l ,1) 

620 IF ASC(XA«)'3e THEN V-VAL f XA« ) ELSE V-ASC I XA*» -33 

640 IF V<10 THEN X«=STR« I V) EL5E X » -CHR • ( V»33 ) 

630 A«-SEQ«(AA«,1 ,2»VC-2- ( XC>4) H,X«t,SEG« (AA* ,2«YC- (XC>4» , 16) 

660 CALL CHAR (CA, At) 

670 CALL HChHR(Y,X,CAlii CALL SOUND ( 10,392,6) ■ a*< ichaga du c*r«cttri 

680 IF PK<-2.3 THEN PM-PH*. 13- . 18* (PH>PMO*. 8) • (PM' 12. 9*LOG(AC) /LOG ( 

2.3)«(PH';lO.3*L0Q(ACl/LDG(l0) >i t GOTO 420 

690 IF PK/3.3 THEN PM-PH*. 15-. 1 • <PH' t 1 . 7) • ( 1- (PHjPK* 1 ) > • ( 1 - <FH 11.3 

(PH<9, 7)t t GOTO 420 

70© PH»PH*.l-. I3a(PH-12)»(PHPK*l.B)-(PH'10)I t GOTO 420 

710 SUfiEND 

720 ■ 

730 ■ •« CHOIX •• 

740 ' 

730 SUB CHOIX 

760 CALL CLEAR i: CALL CHAASET :: CALL 5CF-EEN<4)ii FOR 

,3,16)11 NEXT I it CALL C0LOR(14,2,I6) 

770 DISPLAY AT (2,3) i " INDEX DES CHAPI TRES" | " •••• 

URBE pH(Vo/Val , POUR UN pK* DONNE" 

7B'J DISPLAY AT 17, 3) l" 2 INFLUENCE DU pKa, 

DONNEE Ca DE L'ACIDE" 
79© DISPLAY ATlll,3)i" 3 INFLUENCE DE LA COMCEN- 
POUR UN pKa DONNE-," ■■,■■-,- O FIM- 



-.3)/LOG(10): 



. SOUDE ES 




TV-?, 9 



CALL COLOR (I 



POUR UNE CONCENTPAtlON 
TRATION C* DE L'ACIDE. 



BOO DISPLAY AT(1B,3)1" DANS TOUS LES CAS, LA CON- CENTRATION 
T EGALE A LA CDNCENTRAT lONCa DE L'ACIDE." 
BIO CALL KEY(0,TH,E) : t IF TH^4B OR TH>3] THEN BIO 
B20 ON TH-47 GOTO 830 , 640, S50.B60 
830 CALL FIN 

840 CALL COURBE 1 : GOTO 760 
830 CALL PK : : GOTO 760 
B6O CALL CA : : GOTO 760 
870 SUBEND 
880 ■ 

890 • •• COURBE •• 
9O0 ■ 

910 • trace d'un* courbe pour un pKa donna 
920 ! 

930 SUB COURBE 

940 CALL CLEAR ■■ CALL CDLGR(0,9 ,9) 1 : CALL AXES II DISPLAY ATI 
:"Ca=Cb=0. 100 mol/l" 

950 DISPLAY AT(3,12)BEEP SI ZE 15) 1 "pKa-5" ti ON WARMING NEXT :: ACCEPT AK3.16IVA 
LI DATE (NUMERIC) SIZE (-3) iPK 

960 AC-.l il CN-33 :t J-0 :t N- 1 :i CALL POINT IP» ,f.C ,CN, J ,1 
970 DISPLAY AT(I5,19) 1 "UN AUTRE" It DISPLAY AT C 16, I?> : "p» *' 
16 , 28 ) BEEP VAL I DATE ( " ON " ) S I ZE ( - 1 > : A t 
*~"9B0 IF A*»"0" THEN 940 ELSE CALL S0M2 t: SUBEXIT 
9*»0 SUBEND 

too© ■ 

1010 ■ •• PK •• 

1020 ! 



,12) BEEP SIIEU7 



1030 



■ doni 



I * 



4/ P. 



1030 


SUB PK 




















1060 


CALL CLEAR : : CALL AXES 


it DISPLAY 


AT 


(l,12»i"Ca-Cb- 








DISPLAY 


AT(13,26I :"p^a" it AC-.l t: CN-33 11 PK' 


'0 


II J-0 tl N-0 














1070 


DISPLAY AT(20-J,26)BEEPi 


PK : ! CALL 


POINT IF) ,AC,CN,J,N) : 


: Pfc-P> 


♦l-( 


PK' 






108© 


IF J»6 THEN CALL S0N1 t: 


CALL 1NDE) 


1(1 


1 : 1 CALL SON2 


n.'.L 


107© 










1090 


SUBEND 




















1110 


• •• CA •• 




















I120 






















1 130 










» a don 










1140 






















1150 


SUB CA 




















116© 


CALL CLEAR : : CALL AXES 


1 : D 1 SPLAY 


AT 


(1,19)! *pK«-0' 


11 DISPLAY 


AT( 


14 


, 17 


)SII 


E(12: 


i-Ca-CblmOl/l)" 11 AC-.: 


. t 1 CN-33 1 


j PK>0 1 t J--4 i 


1 N-© 










1170 


DISPLAY ATU6-J, 181BEEP: 


"O'ttSTRi <AC)t< 


*00" II CALL POINT 


: PK , AC , 


CN.J 






AO 


AC/ 10 




















iieo 


IF J-0 THEN CALL SONl tl 


CALL INDE) 




1 1 : CALL SON2 


ELSE 


117© 










1190 


SUBEND 




















1200 






















1210 


' •• INDEX -• 




















1220 






















1230 


SUB INDEX (I) 




















1240 


CALL COLOR!©, 9, 9) 1 : DISf 


•LAY AT(24*1 


.1- 


■27.1)SIZE(Di 


CHRtl 


30) 










125© 


CALL KEY<0,TH,E) I : DISPLAY ATI24+I, 


1-27«I)S1ZE(1 ) : ■ 


I" 1 1 


CALL 


SOUND! SO,: 




29)ii 


IF E-0 THEN 124© 




















1260 


IF THO-I THEN SUBEXIT 




















1270 


SUBEND 




















1280 






















1290 


■ •• SON !•• 




















1300 






















1310 


SUB SONl 




















1320 


FDR V-0 TO 30 : 1 CALL SOUND (- 100, 196* 


il*.0©63) ,V,!"i 




.©063) 


.V.3B7, 


1©' 


• 2av 


/3)ll 


NEXT V 11 SUBEND 




















1330 






















1340 


■ a* SON 2*- 




















1350 






















1360 


SUB SON2 




















1370 


FOR V-0 TO 30 11 CALL SOUND ( 100, 1 31 




,392,V>ii CALL 


SOUND ( - 1 


,163 




494, V) 


: t NEXT V 11 SUBEND 




















1380 






















1390 


•• SON 3aa 




















1400 






















1410 


SUB SON 3 




















1420 


CALL SOUND(230, 392, 2)11 


CALL SOUND! 


500.49' 


,392 


.21 




CAL 


L SIX 


INDUOOO, 387,0) 1 I SUBEND 





















1430 ! 

1440 • »a TEXTE •• 

1450 I 

1460 SUB TEXTE 

1470 CALL SCREENI41I1 FOR 1-1 TO 12 I! CALL COLOR ! I ,3. 1 61 1 s NEXT 

1480 DISPLAY AT I 3,5) t "REACT ION ACIDE-BASE"! " ' 

1490 DISPLAY AT(9,1) 1 "BASE FORTE (la moude) »ur unACIDE FORT (pKa-O) ou lur unAC 

IDE FAIBLE IpK.-O) . " 

1800 DISPLAY ATU3,I)!"Va a»t la volume da 1'aclde."." " , "Vb eat le volune de la 

1310 DISPLAY AT (20,1) 1 "APPUYER SUR NIHPORTE OUELLETOUCHE POUR PASSER A" , " M . 

L INDEX DES CHAP I TRES , •' , >» 

1320 I — I it CALL INDEKUli! SUBEND 






1560 SUB FIN 
1370 CALL CLEAR t 1 
■" it CALL S0N3 1 



■ 1 1 I Nl ; 



"AU KEVU1K 



a /a semaine prochaine 



• •• 




160. 191 



DESSINS ET TEXTE 



Ce programme permet d'ecrire du texte sur I'ecran, 
melangi avec des dessins en basse resolution. II est 
possible d'utiliser de 1 a 30 pages d'ecran. Une routine 
d'animation permet de tourner les pages en avant ou 
en arriere, ou de les (aire defiler a vitesse reglable.Les 
pages peuvent dtre sauvegardees et la routine d'ani- 
mation y est automatiquement jointe. les pages ainsi 
sauvegardees torment un programme machine inde- 
pendent. 

Remi RUNSER 

Mode d'emptoi: 

Les touches + et - reglent le sens de defilement. a 9 la vitesse. 
1 permet le retour au Basic. 15K de donnees peuvent etre stockes. 
Oes explications complementaires sont incluses dans le programme. 

9 REM ttR'JNSEP PEMI 114, RUE DE MULHOUSE 6830© SAINT-LOUIS** 

1 DflTA232. 65, 244. 195.2.9.253.65.24;:. 199,65,244, 16, :?<? . 65, 246. 166. 1 
.65.240,232.63,240,179.63.242,38.241 .57.63 

2 CLEAR290. 16600 

3 RESTORE FORX-16940TO16S72 PERCY POKEX, Y=NEXT 

19 CLse 

20 CWR3, 1,4, 1.3. 2. 5, 2- 3. 3. 5. 3. 3. 4. 3, 4, 3, 5, 4, 5 

30 FQRR-lTOia rebox. Y- POKE 1024*X**Y*32, 233 -WEXTR- POKE 106 1,226 P0KE1 189, 232. PLAY" 

Dfl" 

40 0ATR7 .1, 8. f, 9. 1.7. 2, ".3,8.3.7,4. 7. 3. 8. 5. 9, 3 

59 F0RA-1T019 PEAOX.Y POKE1024-.:-;.,'O2. 1?1 nl:-:Th PUVftK" COT079 

60 F0R>;-9T02 F0RY-1T03 ■POKEl02«*ft+X*Yt3j;.fc HEXTY.X F0RX-9TO1 P0KE1939*X+fl, 126 PO 
KE11S2+X+A.12S NEXTX RETURN 

70 R-l 1 8-173 C0SUB69 PLAVRC" R=15 B-139 GQSU660 ■■PLRVfiB" 
80 PORY-Sl T01 79STEP32 POKE 10244-Y, 287 HEX!',' PLRVAE" 

90 F0RY-86T0132STEP33 POKE 1 024* Y, 223 HEXTV F0RY-53T0181STEP32 ' POKE 18244.Yi 223 <P0K 
E1827*Y.223'MEXTY PLRY"CE" 

109 R»26 B-253 G0SUB60 PLAY" AC " 

110 PRINT»263."E T T E X T E S"- PLAVRBC' - 
112 0031.183989 

129 PRINTi»3?6- "SOFTWARE BY RUNSER REMI 1?83", PLRY"EF" PRIHT«453,"JNBTRUCTI0N9 
'0 O'J N> 7-j 
!49 A»-INKEY» : IFM--M"THEH399EL3E 1FA*= "0" THEN299ELSE140 

139 CLSI POKE1924.129 POKE1935.I30 PRINTS, " DE3SINS ET TESTES BY PUNSER ". PET 
URN 

169 GOSU8150 PRINTr»448."PRESSEZ UNE TOUCHE POUR LA SUITE" ; PR I WT872, "* INSTRUCT 10 
MS*". PRIHT8128."". RETURN 

170 R»»IMKEY» tFA*--"THENi78£L3EC03Ut;i*.9 RETURN 

139 PRINT3385.--RE70IJR RUM COMMANDES" P0KE1498. 9 PRlNTi?128, "l RETURN 
299 1-2 COSUBlSe- PRINT "CE PPOCPArviE '/OUS PEPMET DE FRI-RE DES DESSINS SRSSE PESO 
L'JTION HELRNCES AVEC DO TEXTE. "< PRINT PRINT"\'0US DISPOSEZ DE DEUX MODES " 
291 PRINT" t - MODE TEXTE el ■ MODE DESSIN" 

210 >3 GO3UB180OOS'JB179PPINT"t-f1OE€ TEXTE" PRINT. PRINT" DEPLRCEZ LE CURSEUP 
A L'RIDE DES FLECHES ET ECRIVEZ VOTRE TEXTE R L'ENDROIT SOUHRITE. " 

220 1-3 G0SUB179 ■ PRINT "d»»H0DE DESSIN" PRINT 1 - DEPLRCEZ LE CURSEUR A L'AIDE D 
E LA NANETTE DE JE'J DROITE VOUS P007E2 CHOISIP LR COU- LEOP DU CURSEUR R 
'/EC LES TQU- OWES 9 R 3 .SI VOUS APPUYEZ" 

221 PRINT" SUR LE BOUTON DE LR MflNETTE LR COULEUP DEVIENT PEPMANENTE"; 
223 GCSU8170 PRINTS-MODE DESSIN" .PRINT 'PRINT" " , . F0RX-228T0238 i PRINTCHR*-; X ) I • 

", NEXTX' PRINT PRINT" POOP DESSINEP DES POINTS FINS RPPUYEZ SUR 9" PRINT" 

ET UNE NOUVELLE FOIS POUR RRPETER" 

238 G0SU6189 C0SUB179 PPINT"d>riO0E DESSIN" PRINT" EFFACE? LR PACE AVEC LR COU- 

LE'JR DE VOTRE CHOIX UTILI3EZ LR TOUCHE •" 

231 PRINT" COPIEZ ONE PAGE DRNS ONE ROTRE RVEC c" 

248 1-8 C0S0B179 PRINT-VOUS P0UVE2 RUSSI 3AUVEGARDER LES PACES SUP CASSETTE RV 
EC » O'J LES PECH**OES AVEC 1" ■ PRINT "RV6C - ET - VQU5 TOUR. ME Z LE9 PfMCO EM-* 

VfiNT OU EN RRPIERE, RVEC # VOUS FRITES DEFILER LES PRGES. VITESSE ET SENS SONT 

RE-" 
241 PPINT-GLRBLE RVEC - - 0...9 * - SONT UTIUSA8LES 

EN MODE DESSIN" 

243 C0SUB259 

244 R*-INKEY» IFR«-""THENZ44ELSE390 

330 1-7 G0SUB179 RPIMT-UNE FOIS SAUVEGRRDEE VOS PRGES SONT RECHftRGEftBLES BEULES 

RVEC CLORDM PUTS EXEC VOUS DISPOSE? DES COMW4DE8 SUIVRNTES " 
231 POINT-* - ft 9-VITESSE CQMME EXPLI0U6 PRECEDRMMENT" RETURN 

380 1»7 C0SUBIS9 PPlNTf»36,"C0iiBIEN DE PAGES VOULEZ-VOUS 7" 

38! PRINT PRINT"* - 2" PRIMT"b - 4" PPIHT"c - B"'PRINT"d - 13" PRINT"- * 30" PPI 
NT"^ = RJJTRE fEHTRE 1 ET 28' 
38? P=2 

310 RS-INKEYS |FRM*fl*THEH370 
';: : fFA»«"e"THE"?62 
312 IFR««"C"TH£it361 
31? IFft«-"D"THE'l3-:9 

314 IFR«-"E ,, THEN359 

315 lFRt="/"TNEN355ELSE318 

'.55 PRINTr;4l6."C0M6IEN DE PAGES". INPUTP P-INT' P .- IFP' I OPP 20TMEN335ELSE379 
339 p-P-15 
68 P=p*7 

361 c=R-4 

362 p-p*2 

370 P0KE16891.P FORX-ITOP fll-4 R2-64+2*X CLS9'P0»'E1934,48*INT'''rx-l V10) ■■ POKE 1 033 
17*X-19fINT'«-X-l V10> GOSUB1080 NEXTX 
?53 PP»9 
"'■' 1-1 G0SUB139 PRINT940* "P*9«" PRINT"* - PRGE*I - - PRCE-I c - COPIE 

* - RNIM9TI0N I - SAVE t ■ LORD" 

391 PRINT"' = FIN- PPIMT"*, => MODE TEXTE rfiVEC CLAVIEP) UTILISE LES FLE 

CHE3" PRINT pPlNT"d - MOUE DESSIN 'MRNETTE DROITE) PLACER LR COULEUP RVEC 

LE BOUTON t'E MRNETTE" 

333 PPINT-0 AS' COULEUP ? ■ PTS FINS" PRINT"* - EFFRCEMENT D' 1 PAGE" PR1HTB4 
80,- T RETOUR At' COmRWES'J POKE1504.9 

490 PP[HT»44," ". PRINT(?44,PP."DE",PP*5U*16696."fi"'PP*3I2*17407 
•it?i A*-INKEY1 IF«-""THEN491El.SEIFfl»»"T"THEM599B SF1FP«»"D"THENSefl 



DRAGON 32 



402 IFn«*"S"THEti70i:' 
40- |Ffl*--L"THEN88*J 

44M [FRM"i"THENOOSUB810 G0T039fl 

403 IFHt-"C"THEHCOSUe830 G0T03?9 

406 IFAS= THEHCtS PRINT93Z' "SORTIE DE PROGRAMME* PRINT PR INT" VOS PACES 'vOMT ET 

PE PERDUES SI T0«JTEF0IS VOUS AVE": FFtlT ijME E"-PE'.* TAPEJ- PRINT-COHT t«Ur* P 

PINT STOP GOT0399 

4ti7 tFfW-"i*THEHCOSUBS30 

4W3 IFR»^"-"THENC0SUB?39 

489 [Ffi*^'fl"TH£MG0SUB9ee G0T039fl 

429 GOT0499 

?00 G0SU82999 

c .r.;_ -r. ,'-=0 

584 PO=1024*'. r : :- : 

505 N-PEEK<POi 

307 P0KEPO.201 

508 F0PI-1T039 A«=INCEY* IFR*«-"THENne:'TI ELSEPQKE PO '■ '■ ' :■■ 

50? POI-E PO-M FOPI'ITO30 R»-lNKEYi IFfltt=""TNEHHExn G0T0397 

519 IFps- Chc*. S ■ANC'Ri- 1 -CNR*- ? #>«.-*%■■ CM^«' 19 •RHC..A* .>-■«■ ;-4 -THENSlSELSEIFAt-C"-* 
*'3 >THENIF;/:.rtTHEN»>:-l G0T0394 

312 IFflt=CHR«'S>iTHENIFX-31THENy»l G0TO3O4 

514 IFA»=CHR«' 34 .THElMFi' orwcn,--,-, 0)70544 
916 IFfl«=CHP»' 19 'THENIFy. 15TNENV-Y*i GOT05O4 
517 G0T0594 

515 IFft«="i»"THENGO:"UE:i'OtO G0T0S9O 

520 B-PEEKCte24) PRIHT89. CHRK flSC( ft* »i POKE PO.PEEK' 18^4. FT>EI924.e IF.-:01TMEn 
X-X*1ELSEX=0 IFY-- 15THENY-Y+1 

521 IFPO=1924THENPP[NT'i0.rnRV R-.C'RS ■ ■ 

522 G0TO394 

690 GOSOB2900 6=15? C=0 

60? G0SUB699 

615 M»FEEK.(PO> IFC=0THEN POtERO.B G0T0629 

516 SET<X,YAB-I27VI6) 

629 F0PI = 1T02 G0SUB689-!FR=9THENne;-:TI ELSEP0KEP0<NG0T0649 
639 POKE PO.M FOPI-IT02 C0SUBS89 IFA=9Thenne::ti G0T0699 
649 C0SUB3019 IFOt-.-f*"TMEN390 

642 IFR*^"C"THENC0SUBS39 G0TO699 
644 IFfl»=."t-THENC03ue919 G0TO680 
546 IFfl* = " . "THENGOSUegT.9 G0TO680 

643 I F A»- " - ■ THENGOSUB950 G0T0609 

630 G0T060? 

689 R=0 IF' PEEK-' 65280 '=1260RFEEK< 65280 -254 .ftNDPEE* ' 6 C .:-.?/ ^;.55THEN684£LSEA»-INrE 
Y* IFR«-"" THEN686 

681 IFR»="8"THEN6=128 RETURN ELSEFORJ«1TOS lFflMCHRK48*J)TMENB-'J»lS»I27 

682 NEXT J' IFfi*="?"THENC=RBS'C-l 'RETiJPN 

683 A-l RETURN 

684 IFC-1TMENSET<X,Y.'B-127>^16> ELSEPOKEPO.B 
683 M=PEEKf.PO>.POKE PO,n RETURN 

686 RETURN 

690 X»J0YSTKC9)Y=.INT( JOYSTK' 1 >'2 )'P0*1924*INT'' Y -2 -I j2*lNT- V.-2 ■ PETi.*N 
799 G0SUB899.PPINT , >nr-9i-tr*- 1 «r 1 t" 

792 RttnlNKEY* IFfl»-""TNEf)792 

703 IFR».-i>"THEN?39 

797 CLS7 PPINTi2160,"OUEL MOM DONNEZ VOUS RU FICHIER' INPUTR* flt-LEFTVAtt.8 ' IFR» 

-"8"THEN399 

719 IFP13 THENCSRVEMR*. 16691 17320.16691 

712 IFP>2RMPP<5 THENCSRVENA*. 16601. IS?44. 16^01 

714 IFP>4RNDP<? THBCSRVEMA*. 16601. 29??2. 16691 

716 IFP>8RNDP<16THENCSFIVEMR». 16601 20736. 16681 

717 IFPM5THENCSAVEMR*. 16601. 32256. 16601 
729 G0T0399 

899 G0SUB89? PPINT"l*ctur«- 
882 flt'INKEYt rFA«="' , THENS02 

895 IFR«-"r-"TNEH390 ELSECLORDM GOT0390 

309 I--; G0SUB159 C08UBI89'PRINT8448. "PR6S9EZ ONE TOUCHE SI C'EST FAIT" PPINT812 

8-"METTEZ LE MAGNETOPHONE EN rWRCHEPOSitiOn "1 RETURN 

810 1-0 G0SUB139 F0PI-9T08 PRINTRIS0*I«32-CHR«484'I>i IF I 0THEtiPPINTftl61*M 32-CH 

RtK 143*16*' 1-1 »j 

Sll NEXT] 

812 PRINTe448."9 EC-PEmr t«E PAS EFfflCER LR PAGE" . PPINTi?72. "EFFACEtlENT PRGE" PRI 
NT5104."Cn!iLEHR DE FOND". PRINTRI71 . "PRCE"tPPj 

820 R*-»INKEY*' (FFW-'S-THEMRETURN 

821 F0RI-9T08 IFft«-CHRt(48*I >THEN32?ELSENE>:TI C0T082O 

822 CLSI G0SUB2819 RETURN 

638 1-4 GOSUB130 PRINTS103. "COPIE DE PAGES"- PPIHTU224 . "ORIGINAL NiJMERO DE LA PR 
GE"J INPUTfll R1«IMT'ABS(A1 ))'IFftI>»P THEN838 

B34 PRINTi3320."CCPIE NUMERO DE LA PAGE", ■ INPUT J J-INT' ABS' J)> IFJ>-P THEH934 

840 A1-AU2*66 A2-4 COSUB1000PLAY"D"R2-J-2*66 GQSUBIOW RETURN 

830 PP-PPM IFPP-P THENPP-9 

831 RETURN 

900 1-6 GOSUB130 PRINT973. "ANI^flT[ON■ , , PRINir«128. "* - PAGE * 1". PRINT"- - PRGE - 
1" PPINT"0 R 9 - VITESSE DE DEFILEMENT" GCSUB180 !-l J«3 

902 Rl-INKEYf. IFR«-""THEN992 
?05 EXEC16691 RETURN 

930 PP-PP-I IFPP'9THENPP-P-1 

931 RETURN 

999 END 

1000 P0KE16884.AI PQKE16883,0 PQKE1«886*R2 P0KEl«8B7,a EXEC16840 
1091 RETURN 

2090 Al-PPt2*66 R2-4 GOSUB1000 RETURN 
2010 Rl"4 ■R2-PP*2*66 G0SU8 1 990 PE TURN 

3809 DATA294. 66 -0-253 -65. 244 204. 4. 0.253, 65 .246. 7?. 133.65-253. 133.65-259, 134.0.1 
83.65,232,134,11. 176.63.252. 183,63 232, 1 ?2 65 ■ 232- 187,63.232-246.63.232,61 ,247,6 
5.238. 189. 63, 299, 122.63 

3901 DATA238, 182, 65-238. 39-67, 198. 155, 90, 3?:243. i:-'- I . ■ ■ 848 183 ■' 

43.241,65.234,38,6.7?, 133.65. 259. 52.59- 198-5?. 24] .'..'.' i I 79 ■'- 133.65,250-3 

2.36,198.57. 134. 1 

3002 DRTR?2. 90.76.241 .63-234,38.3, 183. 65. 252, 193.43 38.242. 198,64.241 ,63*234,3*. 
1.57. 132. 63. 252- 123. 11, 38, 2- 32-156-132. 65.:^< 3 ■ 17. 124, 6' ' 
.233, 39. 4 7?. 133 

3093 DRTA65-233-32. L4, 182.63,233. 38.6, 182.63-231 . 183.6; : ' ' ?3, 182.63 

253. 137-63.25?. 1?5. 66. 233.63,244.32,283.57. J2.283.57 
^0R4 F0RX-I6691TOI6787 RERDY POXEX.Y NEXTX RETURN ■ 



PLANEUR 



Vous voici en plein ciel. 6voluant parmi nuages et oi- 
seaux. Voire but? Arriver a atteindre la piste sans dom- 
mage en jouant sur voire altitude (vous etes dans I'axe 
de la piste) par rapport a I'horizontale. 

Philippe FOUSSEREAU 
Mode d'emploi; 

Vous gagnez de laltitude et perdez de la vitesse avec + . vous 
accelerez et vous rapprochez du sol avec - . 
Pour (aire demarrer le leu: DEF A. 
N.8.: Mellleur score a battre 6000 Bonne planantel. 
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BUSINESS 



BUSINESS est un jeu serieuxqui Iraite de la geslion 
d'une entreprise el presente sous une forme analogue 
au Monopoly. 
De quoi devenir rapidement un capilaine d'industrie 

Frederic PICABD 
Lancement du jeu par Flo. 
Vous dtes a la Ifite dune entreprise. Au depart, vous avez 200.000 
F. le but du jeu est d'avoir 400 000 F, en vendant des produits tinis 
(1 PF = 1 usine + 1 EOF * 1 ANPE). Duranl le jeu, vous devrez 
repondre aux questions que vous propose la machine Tout d'abord, 
vo:ci les tarits. 

• 1 carte tout risque coute 10.000 F. 

• i obligation coute 10.000 F. 

- t assurance coute 5.000 F. 

- t action aux Nouvelles Galeries coute 30.000 F. 

- 1 action Darty coute 15 000 F. 

- 1 action Viniprix coute 25 000 F. 

- 1 usine coute entre 1.000 el 12 000 F. 

- 1 EDF coute 6.000 F. 




1 ANPE coute 3.000 F. 
Ventes de produits (mis: 
- Chez Darty de 48.000 a 1 



4.000 F.(avec un supplement de 10.000 



- Chez Vinipnx de 59.000 a 145.000 F, {supplement de 15.000 F.) 

- Chez Nouvelles Galeries de 70.000 a 176.000 F. (supplement de 
20.000 F.) 

Vous avez droit au supplement seulement si possedez Taction cor- 
respondante a la case ou vous vendez. 



Votre role est d'acheter et de vendre et rien d'autre: le FX s'occupe 
de tout Au cours de la panic- 

- Si vous tombez sur une case des taxes et que vous n'avez pas de 
CTR cela vous coute 20.000 F.. sinon une CTR. 

- Si vous tombez sur une case incendie et que vous n'avez pas 
d'assurance cela vous coutera 20.000 F., sinon une assurance. 

• Quand vous avez achete une obligation et si vous retombez sur la 

case obligation, la machine vous la rachele. 

Quand on arrive a la n° 13, deux choix s'oftrent a vous: 

1) Circuit production, pour acheter usine, EDF, ANPE. 

2) Circuit distribution, pour vendre vos produits finis. 

A chaque fin de tour, le FX vous remet sur la case depart. Quand 

vous avez reunit un PF ou plusieurs {c'est plus rentable), vous pou- 

vez aller le(s) vendre (impossible de tricher, il y a un test). Ici, la 

machine vous affiche sur quelle case vous etes. 

Pour voir si vous avez reunt les 400.000 F., la machine comptabilise 

le prix des actions que vous avez acbetees. Tandis que si vous etes 

en deficit on ne vous retire rien: c'est fin: pour vous. Vous avez 

seulement le droit a 10.000 F. de deficit. Si cela ne vous convient 

pas vous pourrez modifier a votre gout. 

Arretons la les discours et jouonsl Bonne chance... 
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Suite de la page 3 



MZ700 



i sen- 



«?BB ef_n-- 
i RErt- 



4230 P£f1 TABLEAUX 

1J3B pen 

4240 PRINT -PdlNl iPRIMT 

4258 PRINT- EFC3C3C3C3C3C30C3C3C3CX3C3 

C3C3CK3C3C3C3C3C3C3CJC3C1C3C3C3C3C3C3C3 

C3C3C3F0' 

4268 PRINT' CS FD F 

□ C?" 

1278 PRINT" CSrrjL'GOSLAVlEFD HAOAGASCAR F 

D POUnftNIE C7* 

1268 PRINT- C5 FQ F 



1310 PRINT" CSfflrs 9AS 

D flONfiCO C7- 

02B PRINT" CS 

D C? 

4338 PRINT" CSCOLOnaiE 

D NIGERIA C7" 

1310 PRINT" C5 

D C7" 

4350 PRINT" CSlTflLJE 

D hONGRIE C?' 

•J360 PRINT" C5 



FD AUTRICHE 



3708 PRINTC2,?JTP.Bt2J" > "" 

= f RlNT-.2 I 7]Iflen?J--C3 C3-;:PRIMTC2,?]T 

ABI20)" 

3??8 FOR I-l TO 7 

3780 PRINTt2,!HflaC2)" 

-:N£XT I 
3730 PRINT 



FD CATALAN 



3810 PCrKE54288,a-lr(PUT A*-PRIHT 

3820 IF A«-"T- THEN GOSUB 418B 

3830 TF A»="T0UGOSLAUIE" THEN PRINT'C'ES 

T BIEn- :GOT03S5B 

3848 IF MO'TOUGOSLAVIE" THEN PRINI"ENC 

ORE UNE FOIS-.-GOT03456B 

3858 REH 

3868 CLS:PRlNT"OUEL EST CELUI-CI ?' 

3878 FOR I-l TO ie88: r <EXT J^PRlNr^CLS 

3880 PRINT -PRINT :PRIMT 

3898 FDR I»l TO 20 

3308 PRINTCI,!]TAeC2J- -;;PRI 

NT[8,6JTA8tl13- - ; ;pRINT[2, 2] 

TABE20)'- 

39 10 NEXT I 

3920 PRINT 

3338 REn 

3348 P0KES4Z8S,8-1NP1JT A« 

39S« IF rt«='T- TmEn GOSUB 4180 

3960 IF A«>-RQUnfWI£- THEN PRINT'C'EST 8 

TEN' =PRIWT :GOT03998 

3378 IF A*<>-eounPf<IE"THENPRINT'-ENCOPE U 

NE FOIS -:G0T03B78 

3388 REH 

3998 REO- - 

1088 Cl_S:PRINT"OUEL EST CELUI-CI ?' 

■"8TB FOR 1-1 TO |B88:NE)<T ItFRINIiCLS 

4028 PRINT -PRINT SPRINT 

4838 FOR !»l TO 29 

4048 PRlNTC4,4)Tflfl£2)- ';:PR 

INT[2,2]TAe(l5J" 

4058 NEXT I 

4060 PRINT 

107B REfl 

I860 PCKE542B8.0-1NPUT A« 

1090 IF A4--T" THEN GOSUB 4 1 SB 

4100 IF A«O'P0RTUGAL" THEN PRINT-ENCORE 

UNE FOIS'-PRINT :&0I018)8 
41 IB IF Af-PORTU&flL" THEN PRINT'C'EST B 
[En. C'EST FINl . \jOULE?-uOUS RECOrinE 

NCER ^(O/N)" 
"I2B Input a* 

4138 IF B*O'*0" TmEN IF 9«<> *M* GOTO 41 

10 

4140 IF &f-0- THEN GOTO 4480 

4I5B IF B*"*N" THEN PRINT-SALUT" iENO 

nee REn- 

1 1 78 RE" - - ■ 

4iae color, .0.4 



4380 PRINT" C5 

D C?- 

4390 PRINT" C5ESPAGNE 

D FRfiNCE C7' 

4408 PRINT" C5 FD 

D C7' 

4410 PRINT" CSALLEHAGNE FD 8ELGI0UE 

D PORTUGAL C7' 

4428 PRINT' C5 PO 



4440 PRINT" ECC4C4C4C1.C4C4C4C4C4C4C4C4C4 

C4C4C4C4C4C4C1C4C1C4C4C4C4C4C4C4C4C4C4C4 

C4C4C4DA" tFOR I-l TO 12B004NEXT I : COLOR, 

■ 7,8 

4450 RETURN 

4460 REH 

4470 REn 

4480 CLSiCOLOR, ,2,2 
4498 PRINTC2.2)' 



4500 PR1NTC2,: 
4518 PRINTC2.1 



4538 PRINT[2,2]- 






4548 COLOR, ,0,3 

4550 PRINT "EPCX3C3C3C3C3C3C3C3C3C3C3C3C 

3C3C3C3C3C3C3CX3C3C3C3C3C3C3C3C3C3C3C3C 

3C3C3C3C3f0-; 

"568 PRINT-'CS Uoui all*! Qpprtndft =w 

*lqu*i C7 i 

4570 PR1NT"C5 

1580 PRINT-C3 

p«» C7\ 

1598 PRINT-C3 

C? i 
1688 PR1NT"C3 ' 
nam C7"i 

4618 PRJNT-C5 

C7", 

4628 PPINT'CS . 
:ir. C? ; 

4638 PRINT CS 

C? i 
4648 PP1NT-C3 

ZP'l 
46S0 PRINT-CS 

C7-; 
46C8 PRINT"C3 
i.nr. -T'.C?'; 
487B PRIHT'CS 



4638 PRINT"C5 

C7 i 

4700 PRINT-C5 

C? , 

4718 PRINT-C5 



4??0 PRJNT-C3 
4?38 PR1NT"C3 



80NNE CHANCE ! 



4748 PRJNT-ECC4C4C4C4C4C1C4C4C4C4C4MC4C 
4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C 
4C4C^C4C4D*' , FOR I-l TO 7B0»:nEXT I 
4750 QOTOI80 ■ 
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1110 


HPLOT XC.VC TO XC * 27, VC T 
XC * 27, VC * 40 TO XC.YC * 4 

TO XC.VC 


■ 


11 12 


IF VI ' 7 THEN DV = 1: GOTO 
1120 


*K 1 ,M 


11 13 


DV - VI +2 


m. m.M _. c it 


1120 


HCOLOR" NOIR 


^■r APPLE" 


1122 


IF CI > I THEN HCOLOR" ROU 
GE 


^r ^* 


1124 


DRAW DV AT XC * 2.YC ♦ 10 




1126 


DRAW CI * 9 AT XC * S.YC ♦ 


2 REM L" OUBLIETTE DU DONJON 


1 130 


RETURN 


10 HOME : PRINT : PRINT : PRINT 


1179 


REM EFFACEHENT DES CARTES 


L'OUBLIETTE DU DONJON": FTUN 


1200 


HCOLOR- O 




1210 


FOR I - IIS TO 160 


15 DIM JC131) 


1215 


HPLOT 0, I TO 279, 1 


20 FOR I • O TO 3l!JC<I> = I: NEXT 


1220 


NEXT I 




1230 


RETURN 


25 NOIR - 3:R0UGE = Z 


1299 


REM DEPLACEMENT DES JOUEUR 


60 PRINT I F-RINT "VOULEZ-VOUS Lft 




S DANS LE DONJON 


fiEGLE DU JEU 7 -( 


1300 


HCOLOR= 


62 GET R* 


1310 


GOTO 1350 


64 IF R» = "0" THEN GOSUB 10000 


1320 


HCOLOR- ROUGE 




1330 


VJ - YD » INT ((9 • U2 + 02 


80 PJ - SiPM - 3 






90 HGR 


1332 


YM - VJ 


91 GOSUB 15O0 


1333 


XJ - XD + INT IU1 / 2> - S 


97 GOSUB 1320 


1337 


XM - XD * 8 • Ul * 01 * INT 


100 HOME : VTflB 21: PRINT "JE BR 






ASSE LES CARTES" 






102 FOR I - 31 TO 1 STEP - 1 






104 HI - INT (1 * RND (1)) 


1370 


DRAW 11 AT XJ.YJ 


106 Kl - JCCI) iJCM> - JC(H1):JC( 


I3SO 


DRAW 12 AT XM.YM 




1390 


RETURN 


IOB NEXT I 


1499 


REM DESSIN DU DONJON 


120 K7 - OiCG - 


ISOO 


HCOLOR- 3 


122 CA - JC(K7>: GOSUB 1O00 


1303 


XD - lOlVD - B 


123 GOSUB 1200 


1510 


Ul - 2SiO! - 20 


124 HOME I VTA8 21: PRINT "VOICI 


ISIS 


U2 - Bi02 - 20 


VOTRE CARTE" 


1320 


HPLOT XD.VD TO XD * 9 • Ul « 


127 XC - 50IVC - 113i GOSUB 1100 




01, YD TO XD * 9 • Ul * 01, YD 


12B IF CG - 2 TMEN 140 




* 9 • U2 + 02 TO XD.VD ♦ 9 ■ 


130 PRINT "VOULEZ-VOUS CHANGER L 




U2 * 02 TO XD.YD 


A CARTE 7 " 


1323 


HPLOT XD * Ul.VD * 02 TO XD 






+ S • Ul * 01, YD ♦ U2 TO XD 


132 IF R* - "N- THEN 140P 




• il - in . 01, VD + B • U2 + 


133 IF Rl ( > "O" THEN 131 




02 TO XD ♦ Ul.VD * S • U2 ♦ 


133 CG - CG ♦ HK7 » K7 ♦ li GOTO 




02 TO XD ♦ Ul.YD » U2 



122 

140 CJ - JC(K7) 

143 PRINT i PRINT "JE TIRE UNE C 

ARTE A HON TOUR" 
147 FOR 10 - 1 TO 1000: NEXT 10 
150 K7 - K7 ♦ IiCO - O 
132 CA - JC(K7)i GOSUB 10O0 
IS4 IF CG - 2 THEN 160 
136 IF VI > 3 THEN 160 
15fl CG - CQ * liK7 ■ K? * ll GOTO 

132 
160 CM - JCCK7) 
1B0 PRINT : PRINT "NOUS ALLONS A 

BATTRE NOS CARTES"! 
182 PRINT "APPUVEZ SUR UNE TOUCH 

E": GET R« 

199 REM DETERMINATION DU VAINOU 
EUR 

200 HOME : VTAB 21 
203 GOSUB 1200 

205 PRINT ■ VOUS 

MO!" 
210 CA - CJ: GOSUB IOOOiVJ - VI 
215 XC - SOiYC - 113i GOSUB 1 lOO 
220 CA - CM: GOSUB lOOOiVM - VI 
223 XC - 150tVC - 113i GOSUB 1100 

230 IF VJ < VM THEN 230 

232 IF VJ > VM THEN 240 

233 PRINT "IL Y A EOALITE": GOTO 
280 

240 GOSUB 1300i PRINT "VOUS GAGN 

EI-iPM - PM - I 
243 GOTO 235 
230 GOSUB 13001 PRINT "JE GAGNE" 



132B HPLOT XD * 2 • Ul.VD 

U2 TD XD * 7 • Ul + 01, YD 
2 • U2 TO XD * 7 • Ul 
D » 7 • U2 * 02 TO XD 
Ul.YD • 7 • U2 * 02 TO XD 



01, 



2 • I 



> U2 



1330 HPLOT XD * 3 • Ul.VD -i 

U2 TO XD * 6 • Ul * Dl.YD ♦ 
3 » U2 TO XD * 6 • Ul ♦ 01, Y 
D • 6 • U2 ♦ D2 TO XD * 3 • 
Ul.VD * 6 • U2 * 02 TO XD ♦ 

3 • Ul.VD » 3 • U2 

1335 HPLOT XD ♦ 4 * Ul.YD * 4 • 
U2 TO XD * 3 • Ul ♦ 01, YD * 

4 • U2 TO XD ♦ 5 • Ul * 01, Y 
D * 5 * U2 + 02 TO XD * 4 • 
Ul.YD » 3 • U2 » 02 TO XD ♦ 
4 • Ul ,YD * 4 • U2 

1340 RETURN 

9999 REM REGLE DU JEU 

10000 HOME ! PRINT "ON JOUE AVEC 

32 CARTES. CHAQUE JOUEUR": PRINT 
"RECOIT UNE CARTE ET L'EXAnl 
NE EN "i PRINT "TENANT COMPT 
E DE SO VALEUR" 
10010 PRINT "(LE 7 EST LE PLUS F 
AIBLE. PUIS LE B, LE"i PRINT 
1 DAME, LE RO 



I, 



'AS) ' 



>RJ ' 



1 



L'55 GOSUB 13201 REM AFFICHAGE 
DES JDUEURS 

260 IF PJ - I IHEN PRINT "VOUS 
ETES TOMFiE DANS L'OUBLIETTE" 
! FRINT "VIIUS AVE/ PERDU") CHR4 
<7> t GOTO 290 

763 IF PM - I THEN PRINT "JF: 9U 

IS TOMl'E DANS L'OUBLIETTE"! PRIN 
"J'AI PERDU": CUR* </)| CHR* 
(7. I CHP.4 (7)| GOTO 270 

260 PR INI "ON CONTINUE . . . "i 

3flS IRIrir "APPUVEZ SUR UNE TOUCH 
I "I : GET fi» 

.iifj BOTO 100 

2*0 F-RIMI "VOULEZ-VOUS FAIftE UNE 

AUIRE TART IE 7"l GET R* 
;:93 IF R* - "0" IHEN GOTO IK- 
:-.',■ PRINT "AU REVOIR. . . "i END 
1000 CI - INT (CA / 8HVI - CA - 
9 • Ctl RETURN 

I'/' - ' nan mbsin d*uhe carte 

i 100 Hf.nLOft- 3 



1002O PRINT : PRINT "DANS L ' ESPO 
IR D'AVOIR UNE CARTE " I PRINT 
•■MEILLEURE. TOUT JOUEUR PEUT 
DEMANDER "! PRINT "UNE CART 
E DU TALON EN ECHANGE DE LA 
" : PRINT "rJIENNE (ON A LE OR 
OIT DE CHANGER 2 FOIS": PRINT 
"SA CARTE). " 

10030 PRINT "LORSOUE LES ECHANGE 
S SON! EFFECTUES. "i PRINT "C 
HACUN ABAT SA CARTE. " 

10033 PRINT "LE JOUEUR Oil I RETOU 
RNE LA CARTE LA PLUS"! PRINT 
"FAI8LE A PERDU. IL AVANCE D 
■UN PAS VERS"! PRINT " LES O 
UBL1ETTES. " 

10O4O PRINT "CELUI OUI TOMHE DAN 
S LES OUBLIETTES"! PRINT "P£ 
RD LA PART IE. " 

10049 FRINT "LE^i nUBLICflEr, SON! 
AU CENTRE DU DONJON": PRINT 
"VOUS ETES REPRESENTS PAR UN 

CARKFAU "i PRINT "ET VOTRE 
ADVERSAIRF PAR UN COF.UR SUR 
"I PRINT "LE DESSIN DU DONJO 



PUYfl : 



< UNE TOU 



:■;■: B4-li4iMifiPf 

] : 
1859 ;=" : :- : 

if '■--■ - vm 

1852 : : I--: m : 
1953 E=l:B*e-k4:6Q1 

: : 

.:■: SOTO :<"<■ 
m rt ,.._.. .... 

;:::' j: : :-■ 

1872 " E=l Iffil . 

1873 E=i:9=8-15E3:fi( 

TO 2 

.::; (= -:--■ :: :: 

IH6SB : 
[881 IF Jt="H" Tr€N 

'J 

\zti if ':■-: no j 

1883 H=!i8*B-Hs3:Hi 

TOZ 

::?; :•■::■: ::< 

1188 SOTD 1838 
ma SOTC 1826 
:;v :;-■: ;;;: 
tlSfl M"PR0Di-OlST2" 

■in ; 

113! IF tt= n r IritH 

5e3 
1132 PP.! "CIRCUIT PP. 

0DUCTIOH*iX«4li 

fi=13:60TC 2 
1146 *="flCHnT US1HE- 

:L=IHT (R8HM12 

M)*1e3 
114! PRT :PPT "USIKE 
fi n ;L;" FRM8S 

6 2: IF Jt=T T 

1143 PPT :6SB 5:6=8- 
V*L: H=n+V: SOTO 

z 

1158 t=fmT EOF p :S 
S8 2 

1151 IF Jf=T THEN 
U 

1152 GSB 5:E=B-V*6e3 
:R=R+V:fi()TO 2 

1168 I="rlCfiflT fiNPE": 
GSB 2 

1161 IF J$=T THEN 
U 

1162 8SE 5:B=B-V*3e3 
:H=N+V:GOTO Z 

1178 PRT 

1171 PRT XCIF D>a;o 
=MiPRT "OUF.L 

RSSURPM! H :fi= 
8:K=36:G0T0 U 

1172 PRT "PAS D flSSU 
RflHCE.":e=B-2e4 
:fi=8:K=38:GGT0 
2 

4888 fi=17:lHP "HB PF 

",P:IF P>3 THEN 
4e3 
4885 IF Hip; IF RiPil 

F NiP THEN 4016 
4087 GOTO 4e3 
4010 R=A+INT (RfiNI*3 

+i:IFfi)27;fl=0: 

K=30:GOTO 2 
4620 IF fl=27 THEN 11 

70 
4838 PRT "CaSE B :fl 
4640 INP "VEHDEZ-VS" 

.Ut:IF W="H B T 

HEN 4018 
4060 IF fi*!3;IF fi*21 

; IF (1*24 THEN 4 

670 

4861 PRT "-> DARTY": 
WI-PHWl-fiM 
-P:B=B+Pt3E4+fl* 
163 

4862 If 6=1!B=8+1e4 
4063 ft=0:K=30:6OTO 2 
4678 If n *19;IF A»22 

TIF fi*25 THEH 4 

467! PPT "-} VINIPRI 
r:H=«-P:K=K-P: 
R=R-P:3=B+P*4e4 

tftME3 

4072 If H=1!B=BM5e3 

4073 A=8:K=38:60TQ Z 
4030 PRT "-) NCUVEi- 

GALERIEr:n=f1-P 

:H=K-P:R=fi-P:B= 

B*P*5E4tfi*lE3 

4081 If E=1J8=B+2e4 

Ml A=0:K=30:GOTO Z 

5603 If RMJlf MM; I 

f N)l THEH 4e3 

5100 GOTO 1132 

m VAR LIST 

VAR: 26PRS: 1680 ■ 



18 



WARGAME 



Vous disposez d'une flotille de 10 h6licopt6res embar- 
qu6s a bord dun porte-h6licoptere. 
Votre mission est d'aller detruire des objectifs ennemts 
sur la odte: bateaux au port, avions sur 1'aeroport et 
chars. 

Lorsque vous quittez les porte-avions. votre appareil 
peut emporter cinq roquettes. Vous faites monter les 
helicopteres sur le pont d'envol avec la touche | et 
vous decollez avec la touche numerique 8. 
Vous atlez a droite avec la touche 6, a gauche avec la 
touche 4 et vous tirez avec la touche 5. A chaque tir, le 
beep vous donne le nombre de roquettes restantes. 
Lennemi peut se defendre et tire a une distance varia- 
ble a chaque approche. Le fait de retourner se poser 
sur le pont, vous donne cinq roquettes supplementai- 
res. Mais attention, au retour la DCA ennemie vous tire 
dessus. Lorsque vous aurez detruit un objectif ennemi, 
le fait de revenir a mi-distance et de repartir fait appa- 
raftre une nouvelle cible. 



PC 1500 



Jean Luc HANROT 



Les variables; 

A: Position de i'helicoptere. 

B: Position du tir de I'helicoptere. 

C: Determine la direction de vol (+ ou - 1). 

0: Choix aJealoire de I'objectit. 

F: Position de I'objectif. 

I et J: Boucles. 

N: Repere pour decompte des objectits. 

0; Limits pour I'efficacrte du tir de I'helicoptere. 

R: Nombre de roquettes. 

T; Total des points. 

X: Distance variabte du tir de I'ennemi. 

AVCH7BA/HE/: Decompte des objectifs et helicopteres detruits. 

Ugne 5: Programme de la touche Fl{l). Retablissement des indica- 

teure d'ecran. 

Ugne 6: Programme L.M. pour inversion video (dans la memoire 

reserve done inutile d'utiliser NEX 1XXX. Charger le basic directe- 

merrt. 

Ligne 40: Le POKE 30286.0,0 eteint les indicateurs d'ecran rendant 

ajnsi ie jeu plus r6a!iste. 

Ugne 100 a 140: Vol a droite. 

Ligne 200 a 230: Vol vers la gauche Ligne 1000: Choix d'un objectif. 

Ugne 1100: Wage droite gauche. 

Ugne 1200: Retoumement gauche droite. 

Ugne 1300: Atterrissage. 

Ugne 1515: Decompte des points. 

Ligne 1600: Decoilage. 

Lgnes 2000 a 2140: DATA Formes des dessins. 




5: POKE 



494, I, 2 

161, 51. «a, 5 
8, 56, 51,14,54, 
S3, 44,55,53, 64 
6:PQKE 14510, 168 
, &78, 86«, «4D, I 
F0, S62, 125, EBD 
.IFF, 82E,E88, e 
36, &6C, 877, 893 
. S8£, 890 



IXXX* 
raomc XX* 



ft I 
1**1 

UWftir 50;FOR 1 = 
1TC 18:CRLL 14 
518:PRINT ! 
NEXT I 

):"K"CLEOS : 

RESTORE : □ jn ft 
*(25)»40,C»<10 



1=010 24: 

Hits 



REftO C 

HEX! 1 
38:F0R 1=010 10: 

REftD C*(l): 

NEXT I 
40:WfllT 18:CLS : 

POKE 38286, 0, 8 
5B:P0USE :CLS : ft" 

10.-GOJRSOR 0: 

GPRINT C*(7>:H 

C-HE*1) IF HE=6 

THEN "It" 
55: IF SSC 1NKEY* 



Oil THEN 55 
I: FOR 1 = 16T0 21; 
GCURSOR 0: 
GPRINT 0*CU: 



128: IF fi>130GOTO 1 

100 

125: IF AMONG 

point iseoa 

UfilT 3.-GCURS0R 
122:GPR1NT C»< 
1B);GCURSQR 12 
7:GPR1NT 0*<8) 
:GCURSDR ft: 
GPRINT CK.8): 
GCURSOR ft: 



RJNT 



gosub ieae 

135: TF JNKEY* (>' 

GOTO 1588 
148:NEXT I : GOTO I 



20: IF l(#CEY« ' ' 
GOTO 1550 
IF (K70OND n>6 
BONO I'RGOSUB 



800:rj--<RND 3)-:2 
: GCURSOR 148 
:GPRINI rf'tCO 
>:N=0:RETURN 



CCURSOR ft: 
GPR1NF OK I J 
:NEXI I 
138:60(0 780 



:NEXT I 
238. itCURSOR ft: 

GPRINT mu , 
235: IF (X15G0T0 

1308 
24B:G0T0 180 
388:tfflJ r 3:F0R I 

'8TO 7 
318:GCURS0R B: 

GPRINI C«XI> 
315:F0R J'lTO 4: 

GCURSOR ft: 

GPRINI A«(J) 

•NEXT J 
328: NEXT I 
3ae:R=5:UftlI 5: 

COR 1=970 12 

:GCURS0R ft: 

GPRINI A4(l) 



390:8» 



:NEx 



1NKEY* : 
B»=-'B" 
T 8:G0T0 



335: IF a*^TT 

Goro "n" 

400: GOTO 1388 

5B8:a=fW8:E=140 
:E=145:0=188 

5B2;UftIT 5:6*= 

INKEY* : IF B 
•--4-G0T0 11 
80 

583= IF R=0GOrO 1 
38 

505: IF B*="5"OND 
POINT FOB 
G CURSOR 8: 
GPRINT C*(9J 
: GCURSOR 8: 
GPRINT n»{8) 
: IF O>0 
GCURSOR E: 
GPRINT C*<8> 
: GCURSOR E: 
GPRINT fl»ea» 
:GOT0 1515 
IF B*=-5-0ND 



P01N 



we 



LET R=R-1 

BEEP R 
IS10:WOIT 0:GOTO 

148 
1515:R=R-l:BEEP R 

:IF N-13LET 

CM-CH-J 



1517: IF N=15LET 

veto* i 

151S:G0TO 1586 
155a:8*^lNKEY» : 



IF F)« I 

GOTO J7BB 
1515= ir H« = -9-LEr 

C=B:GO*0 785 
1568:0010 225 
lf>88:UfilT 3:F0» I 

•710 0S7EP - 

I618.GCURSOR 0: 

GPRIhF C*(l i 

I6I5:F0* J-ltO 4: 
GCURSOR ft: 

GPP I Ml 0»(J) 



I7J0:GCURSOR Z: 

GPRIMT C«<8; 
: GCURSOR 2: 
GPRINT '000( 



l?70: IF P0IN1 (Z« 
1 IJO80R 
POINT (Z-2J< 
>0GCURSOR ft: 
GPRINT fttCB; 
:G0I0 58 

I73B:UA1T 3: 
RE TURN 

13B8:"fT*UflI' 98. 
PRINT -Boteo 
u-;B0 

I910:PRIN| ■'tnari 
.-;CH 

I92B:PRINT 'Aulon 



«:ftU 



1975: ' 



194B: INPUI 'Une a 

■";0«: IF 0» 

= '0' THEN CLS 
:G0T0 4B 
I345.-P0KE 38386, 6 
5,75 

1950: END 
2088:OftTft '808888 



2B86:DftTft "888868 

1O1EI51518I0 

281B:DaTA -001008 
0C081819I91O 
101E15I519I I 



2828:0ATA "888888 
111315I51E10 

101913188818 

8984 88" 
2825: DATA "000000 

1BI815I51EI0 

101818188808 

B88B88" 
2B30:OATA "B0BBB0 

I11915151E1D 

1D191318BB0C 



?*J3:»TA '01010) 
1I19I5151EI0 
)0l9l919e3«3 
ICM : ' I 

7e4a:DATa -mmta 

30IB3A37377& 
70JC7ft7A3?a7 

mstoan miii i 

l 01 038 30 397ft 
?O3C20?ft38*8 

MMKiMTa naia 

IB! 830373770 
703C707O376? 
W', '8080381 
ZI73237327A7 
ft3C70?ft3?67B 
78287- 

2868:DOTO -08e8?« 
64747474747E 
7£7E76787B6e 
682880', "193 
030787074747 
47E7E7C7C797 
87839- 

2B70:OOTO -8888B8 
I818IC3C1C18 
I0193839IC1E 
1E1O00- 

7675:0ftTft '888888 
484848484848 
480848484848 
48484088' 

2080:0010 -880888 
7B2B28787828 
784 828282828 
28787880- 

7885:D0T0 'BSB848 
1B1B10IB1858 
586858581B18 
18101888" 



2B95:OQTO "808070 
242464646474 
747854546444 
04848408* 

2188: DOTO '888838 
171232323270 
7A3C 20203262 
07020208- 

2ie5:ooift 'eaaiai 

01B1BI393D2& 
3D19B38O091 I 
0188888880' 

21 18:00*0 "888181 
8181BI19301E 
301981018181 
81880000' 

21 I5:OOTQ ' B8BB81 
11090009:930 
263039810181 
0)01008888- 

2I28:OATO "800088 



8'. "88486840 



2138:0010 ' 607078 



E7F7E7470C8* 

4a:D0TO "I8I744 

186E1B441718 



Suite de la page 9 



^^ o^ cA 



llise DRflW 113-<-X*2),a,3 
mew onm 1+X.B, 1 
1117-J OWW5*<X^2J,0,3 

tuse &PPW1+/.3. i 

111W ORnU5-KX^2),0,3 

mm ci7Rui*>:,3,i 

;i21B MEXTV'PPIKTCH«>8<6> 
11213 PUTT 0,a,8-a'POr'E4904I,2 
:12I5 IF R*4-2 THEM 11222 
11229 PPIHT- FtNORE VEZON VOIJS PR 

E-JEMTE" 
-.1221 G070I1226 

11222 PRIMT" BRflVfj !!! MISSION RCC 

-PLrE- 

1 1223 REMt***t*»***»**M***t»**Mtt*! 

nnnm 

11226 REM««*t MUSIPIJE DE PRESENTRT 
I0N tttt 

11227 ffEM 



11239 FOR 1-9 TO 17 REP© M'REflO DREfl 
t> 
11233 SCijMO 3,0,19 
11249 MJ8IC l.O.N.ig 
11239 PLflY7,9, 7,2990 WAIT D 
11269 PLRY9, 9.9-9 
11279 NEXT I 

11200 IF R*--2 THEN RETUON 
11309 OflTH 9,39,2,10.20,2,12,23,2 
U310 OfiTP, 10, 39. 2, 3, 20r2. 3, 109,3 
11329 r>HTn 1,39.3,3.29,3,3,23,3 
11339 DATA 3,39,3,1,29,3,8,100,3 
11349 DATA 7,30,3.8,29,3,19.23,3 
11339 DATA 0,30.3.7,29.3,8,299,3 
1 1409 t>£rtx*t*t****x*tttx*ti*tttitxt*t 

ousts*** 

11491 nraS*** ECP1TUPE TITPE tttt* 

txtxtttt* 

11492 PEM 



11430 
•<27>j' 

11430 
M P 

114S0 

49,1 

11470 
49,1 
11450 

11490 
EM I 



CUR3ET 129.139.0 ■ IHK9. DPAU-90, 4 

PPIHTCHP»'27)i"N " PPINTCHP 

H 

P0KE49996.192 POKE43946,102: PE 

CW3ET 129.139.8 IMKl'DPAU -68, 

CUP3ET 120.130.0 ■ IHK9 dPAW -68. 

ZRP- EXPLODE MA IT 19 
P0KE49ee8fie3>P0HE 49048,103 P 

! CUP-JET 129,139,0 IMK1 DPAH -36. 

I C'JPSET 120,139.0 [HK0't>PRU -36. 



11328 ; 

11330 F 
EM L 

11349 CUP3ET 129,130,9' IMK1 -DRAW -44. 
49,1 

11339 CURSET 129. 139,8' IMfO'DPRM -44, 
49,1 

11368 ' 
11370 F 

eh o 



113 
49.1 

1135 
49,1 

11600 
11619 

eh t 

11629 
49,1 

11630 
49,1 

11649 

11630 
EM E 

11669 

LAHC 
11679 

9.1 
11689 



I CURSET 120.130.0' INKl'DRAM -32. 

I CURSET 120. 130.8' INX0<DRAM -32. 

ZAP 'EXPLODE -WAIT 13 
P0KE49914,196:P0KE 49034,106* R 

CURSET 120.130.0' INK! 'DRAW -20. 

CUR3ET 120, 130.0' INK0'DRAW -20, 

ZAP'EKPLODE'UAIT 19 
PQ>--E49916,197-P0KE 49936.107' R 

POKE 49017, 7:P0XE 49037, 7 -REM B 

OIPSET 120, 130,0' IMKl'DAAH -2,4 

C'JRSET 129,130,9' INK0'DRRW -2,4 



11720 
49.1 

11730 
11749 

EM * 

11750 
OUGE 

11769 
49,1 

11770 
49,1 

11700 

11790 
EM C 

11390 
49,1 

11810 
49,1 

11820 

11330 



CURSET 128, 139.B- INKl'DRAM 10 . 

CURSET 120,139.0 INK0'DPAU 19 , 

ZAP 'EXPLODE 'WAIT 10 

POKE49021, 199 > POKE 49061,109' R 

POKE 43922,1 POKE 49962, 1-REM R 

CURSET 129, 139,9' INKI 'DRAW 28 , 

CURSET 129, 130,0' INK0'DPRW 20 , 

ZAP EXPLODE 'WAIT 10 

prjKE-19024 , 110. POKE 49964.119' R 

CURSET 120.139,9' IHK1 >DRAM 49 , 

CURSET 129.159,9' INK9'DRAM 49 . 



1948 CORSET 120. 139. 9 ■ IMK1 DPAM 32 . 
CUP-SET 120,130.0' n*K0'DRFIM 32 . 



ED i 

49 

11339 
49,1 

11360 

Efl'H 79 
11380 
49, 1 



CURSET 129, 130,9 INKI DPAW 64 . 
11399 CURSET 120. 139-9 1NK0. DRAW 64 



49,1 

11939 CURSET 120.159,0: INV0'DPAU 7^ , 
49-1 

11949 ZAP- EXPLODE: WRIT 19 

11930 POKE49032,I13'POKE 49972,113' R 
EM S 

11969 CORSET 129. 159,9' IKK1 'DRAW 88 , 
49,1 

11970 CORSET 120.159.0: INK0 DRAW 88 . 
49,1 

11980 ZAP EXPLODE WRIT 19 
11990 POKE49034, 114 'POKE 49074.114- P 
EM E 

11999 IHK7WR1T1090 PETURN 

12000 REK**s*******n*ar*ts*-cnr***sx*** 
uttttt*** 

12001 REM***** CODAGE DES LETTPES 

mniiii 

12002 PEW 



12910 X=73'Y-I03 

12020 FORLC-9 TO 
Xt8 >♦< LC*4 ) > ■ NEXT 

12040 F0PLC<*4 TO 
X*8)-KLC-4>>'NEXT 

12959 FORCL-9 TO 
L,L(CL>'NEXT 



121 



• 192 



49.' 



12979 FDRLC 
Xt3)*<LC*4))'NEXT 

12980 FORLC-4 TO 
X»3)*(LC-4>)'NEXT 

12990 FORCL-0 TO 

L.LrCD-MEXT 
12100 X-7SY-.104 
12110 FORLC-0 TO 

X*8 )+< LC+4 ) ) NEXT 

12129 FORLC-4 TO 
X*8H'LC~4>)MEXT 

12130 FORCL-0 TO 
L.LCCD'NEXT 

12140 X-79-Y-103 
12139 FOPLC-9 TO 

X»8)*(LC*4))iNEXT 
12169 FORLC-4 TO 

X>8>«<LC-4)><M£XT 

12179 FORCL-9 TO 
L . LC CL ) ' MEXT 

12180 X-84'Y-196 
12198 FOPLC-0 TO 

X»8 )*< LC*4 ) ) ' NEXT 

12200 FOPLC-4 TO 

X«8>*<LC-4))'MEXT 

12219 FORCL-9 TO 
L,L<CL)'MEXT 

12220 X-69'V*197 
12239 FORLC-0 TO 

Xf0H'LC*4>)'HEXT 

12249 FOPLC-4 TO 
X*8)*aC-4))'NEXT 

12230 FORCL-0 TO 
L,L<CL)NEXT 

12260 X-100 Y-19! 

12270 FORLC-0 TO 
Xt8 >♦< LC+4 > > ■ MEXT 

12289 FORLC-4 TO 
X*S>*fLC-4)>'NEXT 



3 ■ LC LC )-PEEK< 46039*'' 

7 ■ L' LC >-PEEK< 46909*f 
7 'POKE 46080-K Y«9 )*C 

3 ■ Lf. LC J-PEEKC 46090»< 
7 ■ LC LC )-PEEK< 46080*( 
7 'POKE 46090*< Y*8 >*C 

3 ' L( LC >-PEEK< 46999-K 

7'L<LC>-PEEK<-46030+': 
7 'POKE 4«0B0*< Y«8 )*C 

3 ■ L< LC 5-PEEKC 46089*C 
7 1 LC LC >-PEEK< 460R9*' 
7 -POKE 46880+'-Yt8)»C 

3-Lf LO-PEEKf 46080+-' 
7.L'LC)-PEEK<460e0+' 
7 POKE 46080*< Yt8 >*C 

3L(LC)-PEEK'46080*' 

7 ' LC LC )*-PEEKC 46080+C 

7 POKE 46030+CYt8)*C 

t 

3 ' LC LC )»PZEK' 46080+C 

7LCLC)-PEEK''46088+r 



12290 FORCL-0 TO 
L,LCCL)'NEXT 

12300 X-101Y-10" 

12310 FORLC-0 TO 
X*8 )*C LC+4 )>' NEXT 

12320 FOPLC-4 TO 
X«8)+CLC-4)>.NeXT 

12330 FORCL-0 TO 
L,LCCL>'HEXT 

12340 X-67'Y»!10 

12330 FOPLC-0 TO 
X*8>*C LC+4 >)■ NEXT 

12360 F0RLC-<4 TO 
X»8J+CLC-4)VNEXT 

12378 FOPCL-0 TO 
L.LCCD'NEXT 

12380 X-72'Y-lll 

12399 FORLC-0 TO 
X*8)+'LC+4V. NEXT 

12409 FORLC-4 TO 
X»3)+CLC-4J>'NEXT 

12410 FOPCL-0 TO 
L-LCCLJ'MEXT 

12429 X-63Y--112 

12439 FORLC-0 TO 
X*9 >♦< LC+4 >> NEXT 

12440 FORLC-4 TO 
X*8 >+C LC-4 > ) NEXT 

12430 FORCL-0 TO 
L.LCCD'NEXT 

12460 X-83 Y-113 

12470 FOPLC-9 TO 
X»8)*CLC+4)>'NEXT 

12439 FOPLC-4 TO 
X»8 >+C LC-4 )> -NEXT 

12490 FORCL-0 TO 
L.LCCD'NEXT 

12390 X-69Y-.114 

12310 FOPLC-0 TO 
Xt8)+CLC+4)> NEXT 

12320 FOPLC-4 TO 
Xt3+<LC-4>>>'MEXT 

12339 FORCL-0 TO 
L.LCCD'NEXT 

12539 PETiJFfN 



7 POKE 46889+C Y*8 >+C 

3'LCLC)-PEEKC46999+< 
7 ' LC LC >-PEEKC 46098+C 
7 -POKE 46990+C Yt8>+C 

3 Lf LC >-PEEKC 46089+C 
7'LCLC>-PEEK(46080*<' 
7 POKE 46030+' Y*8 )+C 

3'L'LC)"PEEKM6039+' 
7 - LC LC >PEEKC 46080+C 
7 POKE 460e0+-'Yt8'+C 

3LCLO-PEEKC46030+C 

7'LCLC;-PEEK'469P0" 
7 'POKE 46089+C YT8 >*C 

3 ' LC LC 1-PEEK ' 46080+C 
7 -LCLOPEEK' 46089+C 
7 'POKE 46080+C Y*8 >+C 

3 - LC LC )-PEEK< 46000+C 
7 L'LO-PEEKC 46080+C 
7 POKE 46080+C Y*8 >*C 



SOLUTION DE L'HIPPORfeBUS: 


10 


FDR 


[ = 1 


TO 


12 




^A 


20 


READ 


X 








j^-Q^j 


30 


PRINT CHR*(X) 




/*r!v 


40 


NEXT 


I 








%RlH\ 


50 


END 










**Knr 


60 


DATA 


66 


65 


78 


68, 


|Ei? 






69 


32 


65 


77, 


1 






79 


82 


67 


69 
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LE LOGICIEL 

DE LA SEMAINE 

ONE ON ONE ... 

par Electronic Arts (E.O.A.) 

pour APPLE II 



PETITES ANNONCES 
GRATUITES 




Encore une des splendides rea- 
lisations EOA pour voire 
APPLE. Mais cette fois-ci, pas 
d'aventure galactique. pas d'en- 
vahisseurs a eliminer. 
Alors en quoi consiste ce pro- 
gramme ? Bonne question ! 
Vous avez sans doute regarde 
des matchs de basket a la tele 
(ou mieux, peut-etre y avez- 
vous joue ?) Maintenanl prati- 
quez ! 

Le jeu vous propose une de- 
monstration des possibilites ex- 
ceptionnelles des deux joueurs 
{Docteur J et son acolyte). 
Le logiciel vous offre de multi- 
ples possibilites de jeu. seul 
contre 1'ordinateur. a deux 
joueurs. en temps reel, en par- 
ties courtes. 

L'utilisation se pratique integra- 
lement avec le joystick (1 au 
moms est necessaire pour utili- 
ser le jeu. seul contre Tordina- 
teur). 

Vous voila parti dans des drib- 
bles extraordinaires ? Oui. mais 
mefiez-vous de Larry, ses bras 



roules vous laisseront muet de 
stupefaction (les bras vous en 
tomberont!). 

II est essentiel de souligner la 
qualite unique du graphisme: 
lanimation des personnages est 
extremement soignee. Quelques 
gags vous remonteront le moral, 
si vous n'avez pu vaincre, des le 
depart, votre concurrent. Ainsi 
essayez de vous accrocher au 
panier, le panneau en plexi ne 
resistera pas a votre 
charge... Alors patience! Atten- 
dez que le balayeur soil passe 
avant de reprendre la partie. 
Enfin, il est inutile de preciser 
que toutes les regies du jeu doi- 
vent etre respectees. Si vous 
perpetrez une infraction. I'arbitre 
viendra vous expliquer sa facon 
de voir les choses. Et votre ad- 
versaire aura droit aux lancers 
francs. 
Alors prets pour le coup d'envoi ? 



Michael THEVENET 



VENDS pour TI99/4A carte 
controleur + PHP 1240 et unite 
fnlegree de disquette.PHP1250, 
achetee mai 84Jean Francois 
DYBA. Tel:{23) 63. 21. 34. 

VENDS ORIC 1 48K + cable 
Peritel + alimentation + manuel 
francais + Forth + K7 nom- 
breux jeux et utilitaires: 1850 F. 
Monsieur TARDIT 3 aliee du 8 
mai 92150 SURESNES Tel: 
728. 96. 94. 

VENDS ZX 81 (annee 84) + 
16Ko + Clavier ABS. (Valeurs 
1119 F.), Vendu: 800 F. 
VENDS pour 2X81 : ZX 81 : "A la 
conquete des jeux" : 30F. (1K et 
16K). + 102 programmes pour 
ZX 81 et TIMEX : 70 F (IK). 
SPACEGAMES: 20 F.. 70 pro- 
grammes pour Sinclair ZX 81 
(1K et 16K): 40 F. + Intercepter 
Cobalt : 50F. Panique: 50F. 
Gulp: 50F. Scramble: 50F. + 
nombreux programmes. Remi 
LACOMBE "Le Progres" 3 im- 
passe Charles Lecoq 34500 8E- 
ZIERS. Tel: (67) 76 75 57. 

VENDS pour TI99/4A BLACK- 
JACK. POKER. MUNCH MAN. 
La K7 du Basic par soi-meme 
(le tout sous garantie): 415 F. 
Demander REGIS au (62) 93 62 
59. 

VENDS COMMODORE VIC 20 
(bon etat) + impriante (VIC 
1515) + feuilles pour impri- 
mante (environ 2000) + exten- 
sions Ko RAM + lecteur enre- 
gistreur de K7 (VIC 1530) le tout 
5000 F. C. COIGNAT Bourg de 
Guebriac 35190 TINTENIAC. 
Tel: (99) 68 04 29 

ACHETE pour T199/41 contr6- 
leur + lecteur de disquette + 
RS 232. Patrice JEAN 8 place 
chemin de ronde 78340 LES 
CLAYES SOUS BOIS Tel: 055 
28 65 (apres 19H) 



ACHETE extension memoire 
16K pour T07.Stephane FERRY 
83200 TOULON. Tel.:(94) 91. 
43.08. 

VENDS CASIO FX 702 P + 4 

Ko sous garantie 6 mois. (valeur 
2200 F.) Vendu 1800 F. Alain 
CHEMTOB 4 avenue du protes- 
seur Macaigne 95320 SAINT 
LEU LA FORET. Tel.:(3) 960. 
17.22. 

VENDS Imprimante MCP40, 4 
couleurs. graphique + 2 ma- 
nuels + crayons + papier: 2600 
F. Contacter Bruno BOUCHAUD 
24 rue de Vouneuil 86000 POI- 
TIERS Tei.:(49) 57. 20. 10. 



VENDS T199/4A bon etat (sous 
garantie) + prise Peritel. Cable 
K7, manettes jeux (neuves). mo- 
dule Parsec, 60 programmes, 
dont 15 sur K7. le tout 1400 F. 
Stephane VASSORT. 39 rue 
d'lngres. 45380 LA CHAPELLE 
SAINT MESMlN.Tel.:(38) 72. 63. 
16 (apres 18H). 

VENDS pour T07. programmes 
LOGO avec explications detail- 
lees. Vendu entre 350 F et 400 
F. Pierre AULENAT Tel.:(40) 46. 
45. 69. (apres 20H) 

Achete pour boitier d'extension 

TI99 4/A. i 

Carte controleur de disquettes 

Carte RS 232. Lecteurdedisquet- 

tes. Jacques Yves. 124. rue de la 

Convention 75015 Paris. Tel. : 

558.10.07 

Tl 99/4A : Echange modules 
Munch-man et Sneggit contre 
nouveaux modules Texas. Vends 
ou echange le Basic par soi-me- 
me et Beginning Gramar. Vends li- 
vre : Jeux et programmes pour 
I'ordinateur familial Texas Instru- 
ments (tome 1) a 80 F Demandez 
Fernando au : 666 73.54. 




Tl/99 4/A : Echange Minimemoire 
+ Assembleur langage machine 
avec manue! contre module Basic 
etendu. M. Guyot J.R D.S FA. les 
Geais 78170 La Celle St Cloud. 
Tel. : H. Bur. 244.55.29 - Tel. D 
918.58.69 

Vends : Sharp PC 1500 : 1200 F + 
CE 159 (8 ko Ram protegee) : 
700 F+ Papier+ sty!os + livres (4) 
4- Malette : Le tout 2470 F. 
Cherche contact Apple II. M. Le- 
moine Joel. 2. rue A. Leyge. Bat. 
28, Esc. 2 - 95340 Persan. 

VDS Micro Ordinateur Tl 99/ 
4A + magneto K7 + manettes 
jeux (16 Ko, 16 couleurs. son) 
Modules : Tl INVADERS. PAR- 
SEC. ECHEC. EXTENTED 
BASIC + MINI MEMOIRE ( + 
mode assembleur) + livres : 
50 prog., Assembleur, 3 "Ma- 
gazines 99" + 2 K7 99. Reste 
abonnement 99 : magazines 
+ K7. Luc MARCOTTE 88. rue 
Etienne Flament 62300 LENS 
Tel. : (21) 28.01.02. 

VDS Tl 99/4A (1983) : 800 F.. 
magneto Tl + K7 le basic par 
soi meme + K7 programmes ; 
300 F.. PARSEC + MUNCH 
MAN : 300 F., Basic Etendu + 
K7 "basic Etendu : 900 F.. 
Joystick : 150 F.. Livres : "pra- 
tique de I'Ordinateur familial 
Tl" niveau 1 : 60 F. niveau 2 : 
60 F., "Jeux et programmes 
pour Tl 99" : 60 F. "50 pro- 
grammes pour Tl" : 60 F., "Tl a 
I'affiche PSI" : 60 F. Le tout : 
2500 F. Monsieur BESNARD 
Tel. : (76) 96.20.86. (GRENO- 
BLE). 
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Ja Regie 
aCalcul 



LAREGLEACALCUL 

sort une extension memoire 32 K exterieure pour la console Tl 99/4. 

Avec 48 K ram, vous allez realiserdes programmes plus performants, 

utiliser le logo II (en francais], 

outil indispensable a I'eveil informatique des eleves. 



ACCESSOtRES Tl 99/4 
ModulateurSEr-"' 

U SECAMKJC 

Modulateur SECAM GH 
GSbfe liaison magneto -cassette! 
Paire manette-. jeux 

Macjn*tc-tasi*RK compatible 

■ . 
Magneto-cajsetw compatible 

■ :.'■■' i ■ 

• PROGRAMMArtON 5UR DISOUETTES : 
Carte P code Inecev, Pa"-cal| 
•UCSD Fiscal Compiler 
'UCSO F&scal Unfcei 

■■ -:...■■■■■■ ■.■■■■■ ■ 

'.'.':"■; ■ • 

I adreuet 

•Aidea!aprogramiTiatJCjri2 
"Aide a la prdgrammation 3 




1.995 F 



1 800,00 


a i 


600.00 


D ! 


600.00 




600,00 




3 OOOJX 


1 1 1 


415.00 




206.00 




206.00 


D 1 



Texas Instruments 



e! 



-. , . ..-.,. 
'ResKancedes n ■• i a 

■ ■- .'"ittuei 

"N B il e-.t nec« V-'P de po-.vV! 
le Colfi-; '»nen'.>c,n PHP \)00 pi 



375,00 
757,00 



Tl-invflderj 
>ui «rf)*o I 



IMOUVEAUX LOGJCIELS TEXAS 



206,00 


n 


252.00 


i i 


J 47,00 


i i 


206,00 


i i 


147.00 


ii 


147.00 


ii 


147.00 


1 1 


147,00 


n 


147.00 


a 



150.00 | 
1 50.00 
90,00 



390.00 


n 


390.00 


: I 


390.00 


i ! 


390.00 


u 



PTOG RAM M ATI ON 

• Extended basic I 

Memoir?- wrwon 32 K e*teriei 

Tl LOGO I! 

mansion 37 K <n0<tpenwt>lel 

BilliC par sc-mem? 

AiqeaUpfogfjmmjuor. 



i "><•'■. de fabrication 

I 200.00 
795.00 



252.00 rj 


Hopper 


252.00 


252.00 a 


SBI [reck 


252,00 


252.00 1 a 


Jaw Prefer 


252.00 


252.00 □ 


flexure 
ll«nd 


252.00 



OTCAMSATIOIV 
Conseil tirvnrier 
Geiuon fKtiier 
Gesuon rappora 
StaDiUCJ 
TlMK 

Gesbonptivee 
MODULES EDUCATION 
A tJfjirion-SgWif action I 
Addition -Subtraction n 
Addition. Canon 

Early Reading 
Meteor multiplication 
Multiplication I 
• Munc Ma*e' 
MODULES LOISIICS 
Connect tout 



75.00 


CI 


375.00 


i 1 


375.00 


; : 


206.00 


1 ! 


415.00 


i i 


415.00 


i.j 


1 47,00 


n 


147.00 


i i 


1 4 7.00 


1 1 


14 7.00 


1 1 


14 7.00 


r i 


147.00 


r: 


147.00 


1 1 


206.00 


(J 


147.00 


n 


252.00 


■-; 



Demon attack 
Main 
Burger time 



PttOGfMMMES MAGNAffD \ 

i.a ponausDon tn I ranph 
Drviieu'i PGCD - PPCM 



PffOCRAMMES V1FI NATHAN : 

Ca'Otiemalicieuw 

Comp el mult 

Man croiiei vol I 

Mou coisft vol 2 



PmXiBAMMES COLLINS/TEXAS : 

Intiod au Tl 99/4 |l| 

Inttod au Tl 99/4 (2) 

Lei tectimquei dei programmei 

dejeu* |l| 

Lei techfuquei de'. programme! 

dejeu. |7| 



175,00 


n 


125.00 


: ■ 


125.00 


1 1 


125.00 


U 



HEBLX)GICIELS SOFTWARE 

TIN'' I B.v.icsirnplAK7 t2ieui 

TIN" 2 Banc etendu I2jeu< 

Tl Rubii sacrr> Jeu d aventurei pane etendu 



MODULES EUNWARE 
Rat) bit trail 
Driving Demon 
Ambulance 



Mltroluroeoo : 252.00 | I 

Devrne/ un <rnrurg«rn expert en apprenant l.i mMeont ■- 
dommage pour le patient 



285.00 


n 


285,00 


1 1 


785.00 


n 


285.00 


n 


285.00 


!.: 



r\4ooniw«eper: 
i Ii labi riu- jeu d 



", intergaiacuquci Fno 



75.00 


n 


75.00 


1 1 


75.00 


II 


75,00 


II 



LA PROMOTION DE LA SEMAINE 
LUNAR LANDER 2 
Jeux de ilmuLatJc-n de voli ipatl.iux 
avec 25 eta pel K7 Bailc etendu 




LOGO II en francais : Module enflchable 
Ce langage destine auxjeunes fait com- 
prendre la phllosophie informatique 
tout en laissant a leleve la maitrlse de 
I'ordinateur par lobllgation de lui don- 
nerdeslnformationscomplementairesa 
votre demande. 

rvlathematlques et autres disciplines 
d'enseignement peuvent etrcabordces 
dune manlere naturellc. 



BOIM DE COMMANDE 

TARIFS AU 2/7/1984 



I'rennm 
Adresie 



C« pru wot indicant et peuvent etre modifier 
van-, pre.ivii 

rvoduin disporiibles dam la limite de not Mock' 
rn magann 

1','ftu ip.it. un .tu« tr.tii de £ 
recomrnand* pour les logiciel 

LABEGLEACALCUL 

65/67. bd Saint -Germain. /5005 PAWS 

Tel 3256BB8- Tele> I fRAV 27O064F/I30J IW 

Llvrjition d«t produKi dttpontbtn tout IJoun. 
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